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

Question

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

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

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

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

试图：

1 - 创建拆分器时，使用组件的“left”t 和“width”属性作为其“left”属性。

2 - 使用 left 属性分配它应该在的位置。

还有一些我不记得了。

我错过了什么？

在下面的代码中，在应该在的地方创建了拆分器。 就在相应面板之后，它们的 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

当您以从左到右的顺序将面板添加到背景面板时，在设置Alignment 属性之前将添加的面板的Left 属性设置为足够大的值就足够了，因此它超过已放置在背景面板上的组件的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。

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

fThisPanel.left := fPreviousPanel.Left + fPreviousPanel.width + 1，以此类推...