Question

我正在使用一组现有的TControl设计一个新的VCL组件。控件放在TPanels上，一些对齐到左侧位置，一个对齐到右侧位置，最后一个对齐到客户区。每个面板都有自定义组件作为其父级。

我需要在面板之间放置分割器，以便用户能够调整内部组件的大小。

问题是，我无法弄清楚在运行时创建时应用于分割器定位的逻辑。

我访问过很多论坛，每个论坛都指向不同的解决方案，但都没有。

试图：

1 - 在创建分割器时，使用属于它的“左”属性的组件的属性“lef”t和“width”，作为“左”属性。

2 - 使用left属性指定它应该位于的位置。

和其他一些我不记得了。

我错过了什么？

在下面的代码中，分割符正在创建它应该的位置。在相应的面板之后，他们的左侧属性对应于我尝试的最后一件事（它的位置）。

constructor TDBIDBGridFilterBar.Create(AOwner: TComponent);
begin
  inherited;
  Self.Width := 490;
  Self.Height := 23;
  Self.Constraints.MinWidth := 285;

  if fComboColunasWidth = 0 then
    fComboColunasWidth := 118;

  fBackGroundPanel := TPanel.Create(Self);
  fBackGroundPanel.Parent := Self;
  fBackGroundPanel.ShowCaption := false;
  fBackGroundPanel.BevelOuter := bvNone;
  fBackGroundPanel.Align := alClient;

  fButtonsPanel := TPanel.Create(Self);
  fButtonsPanel.Parent := fBackGroundPanel;
  fButtonsPanel.ShowCaption := false;
  fButtonsPanel.BevelOuter := bvNone;
  fButtonsPanel.Width := 73;
  fButtonsPanel.Align := alLeft;

  fBtnMarcaTodos := TButton.Create(Self);
  fBtnMarcaTodos.Parent := fButtonsPanel;
  fBtnMarcaTodos.Width := 23;
  fBtnMarcaTodos.Height := 23;
  fBtnMarcaTodos.Left := 0;
  fBtnMarcaTodos.Hint := 'Marcar todos';
  fBtnMarcaTodos.ShowHint := true;

  fBtnDesmarcaTodos := TButton.Create(Self);
  fBtnDesmarcaTodos.Parent := fButtonsPanel;
  fBtnDesmarcaTodos.Width := 23;
  fBtnDesmarcaTodos.Height := 23;
  fBtnDesmarcaTodos.Left := 23;
  fBtnDesmarcaTodos.Hint := 'Desarcar todos';
  fBtnDesmarcaTodos.ShowHint := true;

  fBtnInveteSelecao := TButton.Create(Self);
  fBtnInveteSelecao.Parent := fButtonsPanel;
  fBtnInveteSelecao.Width := 23;
  fBtnInveteSelecao.Height := 23;
  fBtnInveteSelecao.Left := 46;
  fBtnInveteSelecao.Hint := 'Inverter seleção';
  fBtnInveteSelecao.ShowHint := true;

  fLabelPanel := TPanel.Create(Self);
  fLabelPanel.Parent := fBackGroundPanel;
  fLabelPanel.Width := 33;
  fLabelPanel.Align := alLeft;
  fLabelPanel.ShowCaption := false;
  fLabelPanel.BevelOuter := bvNone;

  fLabel := TLabel.Create(Self);
  fLabel.Parent := fLabelPanel;
  fLabel.Top := 4;
  fLabel.Left := 4;
  fLabel.Caption := 'Filtro:';
  fLabel.Width := 28;

  fComboColunasPan := TPanel.Create(Self);
  fComboColunasPan.Parent := fBackGroundPanel;
  fComboColunasPan.ShowCaption := false;
  fComboColunasPan.BevelOuter := bvNone;
  fComboColunasPan.width := fComboColunasWidth;
  fComboColunasPan.Align := alLeft;

  fComboColunas := TDBIComboBox.Create(Self);
  fComboColunas.Parent := fComboColunasPan;
  fComboColunas.Text := '';
  fComboColunas.OnEnter := PopulaComboColunas;
  fComboColunas.OnChange := ComboChange;
  fComboColunas.Style := csOwnerDrawFixed;
  fComboColunas.Align := alClient;
  fComboColunas.Hint := 'Colunas';
  fComboColunas.ShowHint := true;

  fSplitterColunas := TSplitter.Create(Self);
  fSplitterColunas.Parent := fBackGroundPanel;
  fSplitterColunas.Align := alLeft;
  fSplitterColunas.Left := 1;

  fComboOperadorPan := TPanel.Create(Self);
  fComboOperadorPan.Parent := fBackGroundPanel;
  fComboOperadorPan.ShowCaption := false;
  fComboOperadorPan.BevelOuter := bvNone;
  fComboOperadorPan.width := fComboColunasWidth;
  fComboOperadorPan.Align := alLeft;

  fComboOperador := TDBIComboBox.Create(Self);
  fComboOperador.Parent := fComboOperadorPan;
 // fComboOperador.Items.Add(cItensComboFiltro);
  fComboOperador.Style := csOwnerDrawFixed;
  fComboOperador.Align := alClient;
  fComboOperador.Hint := 'Comparação';
  fComboOperador.ShowHint := true;
  fComboOperador.Text := '  =  ';

  fSplitterOperador := TSplitter.Create(Self);
  fSplitterOperador.Parent := fBackGroundPanel;
  fSplitterOperador.Align := alLeft;
  fSplitterOperador.Left := 2;

  fBtnAdcFiltroPan := TPanel.Create(Self);
  fBtnAdcFiltroPan.Parent := fBackGroundPanel;
  fBtnAdcFiltroPan.ShowCaption := false;
  fBtnAdcFiltroPan.BevelOuter := bvNone;
  fBtnAdcFiltroPan.width := 23;
  fBtnAdcFiltroPan.Align := alRight;

  fBtnAdcFiltro := TButton.Create(Self);
  fBtnAdcFiltro.Parent := fBtnAdcFiltroPan;
  fBtnAdcFiltro.Height := 23;
  fBtnAdcFiltro.Width := 23;
  fBtnAdcFiltro.Caption := '+';
  fBtnAdcFiltro.Hint := 'Adicionar filtro...';
  fBtnAdcFiltro.ShowHint := true;
  fBtnAdcFiltro.OnClick := btnNewFilterClick;

  fClientPanel := TPanel.Create(Self);
  fClientPanel.Parent := fBackGroundPanel;
  fClientPanel.ShowCaption := false;
  fClientPanel.BevelOuter := bvNone;
  fClientPanel.Align := AlClient;

  fMaskEdit := TDBIMaskEdit.Create(Self);
  fMaskEdit.Parent := fClientPanel;
  fMaskEdit.Font.Size := 9;
  fMaskEdit.Align := alTop;
end;

Answer 1

当您按从左到右的顺序将面板添加到背景面板时，在将Left属性设置为足够大的值之前设置所添加面板的Alignment属性就足够了，因此它超出了已放置在背景面板上的组件的Left属性。您设置的值甚至可能大于背景面板的宽度。

当您从右到左的顺序（Alignment = alRight;）添加面板或其他组件时，您可以将Left属性保留为0。

以上情况适用于您放置在背景面板上的任何组件，也适用于分割器。使用分割器时，您可能还希望将相邻组件Constraints.MinWidth属性设置为类似于10，以防止组件宽度意外地减小到零，因此变得不可见。一旦发生这种情况，就无法通过拆分器再次看到它。

例如，此代码：

procedure TForm1.Panel1Click(Sender: TObject);
var
  i: integer;
begin
  i := 1;
  repeat
    with TPanel.Create(self) do
    begin
      Parent := Panel1;
      Left := 510;
      Align := alLeft;
      Width := 40;
      Constraints.MinWidth := 10;
      Caption := 'L'+IntToStr(i);
    end;
    if (i = 3) or (i = 5) then
    with TSplitter.Create(self) do
    begin
      Parent := Panel1;
      Left := 510;
      Width := 10;
      Align := alLeft;
    end;
    inc(i);
  until i > 5;
  with TPanel.Create(self) do
  begin
    Parent := Panel1;
    Width := 40;
    Align := alRight;
    Caption := 'R1';
  end;
  with TPanel.Create(self) do
  begin
    Parent := Panel1;
    Width := 40;
    Align := alRight;
    Caption := 'R2';
  end;
  with TPanel.Create(self) do
  begin
    Parent := Panel1;
    Left := 510;
    Align := alClient;
    Caption := 'C';
  end;
end;

产生这种设计：

L1 .. L5 alLeft对齐，C alClient对齐，R1 .. R2 alRight对齐。

Answer 2

我设法搞清楚了。由于之前创建的所有组件都是左对齐的，因此无论它们位于何处，它们的left属性都设置为0。

所以，为了解决这个问题，我必须正确地填充前面板的左边属性。

fThisPanel.left：= fPreviousPanel.Left + fPreviousPanel.width + 1，等等......

如何在TCustomControl组件上正确创建TSplitter？

2 个答案: