Posicionando objetos criados em RunTime

[bdexterholland 0]

Olá a todos!

 

Estou com uma dúvida sobre como posicionar os objetos criados em RunTime. Tratam-se de um TLabel, um TCheckBox, um TSpeedButton e um TPanel. A classe TPainelPermissao é descendente de TPanel e eu passo um TScrollBox no Construtor. Abaixo segue como estou fazendo para instanciá-los. Como podem observar, estou usando Align para posiciona-los dentro do TPanel e ele está ficando com esta aparência:

 

Observem que o TSpeedButton está entre o TLabel e o TCheckBox, no entanto, eu gostaria que o TCheckBox ficasse entre o TSpeedButton. Alguém tem sugestões de como fazer isto?

 

constructor TPainelPermissao.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  DisplayModulo := TLabel.Create(Self);
  Autorizado    := TCheckBox.Create(Self);
  Remover       := TSpeedButton.Create(Self);

  Self.Parent   := (Owner AS TScrollBox);
  DisplayModulo.Parent  := Self;
  Autorizado.Parent     := Self;
  Remover.Parent        := Self;

  Self.Align            := alTop;
  Autorizado.Align      := alRight;
  Remover.align         := alRight;
  DisplayModulo.Align   := alClient; 

  DisplayModulo.Visible := True;
  Autorizado.Visible    := True;
  Remover.Visible       := True;

  Autorizado.Caption    := 'Permitido';
  DisplayModulo.Caption := 'CodigoModulo';
  Remover.Caption       := 'X';

  Self.Height           := 40;
  DisplayModulo.Height  := 20;
  Autorizado.Height     := 20;
  Remover.Height        := 20;

  Self.Padding.Top      := 10;
  Self.Padding.Left     := 10;
  Self.Padding.Bottom   := 10;
  Self.Padding.Right    := 10;

  DisplayModulo.Layout  := tlCenter;
  DisplayModulo.Font.Style  := [fsBold];
  Remover.Font.Style        := [fsBold];

  Remover.OnClick       := ExcluirPainel;
  Autorizado.OnExit     := MudarEstadoCheckBox;

end;

A imagem que não apareceu no POST anterior:

http://uploaddeimagens.com.br/imagem/index/798Sem-ttulo.png

[cfesta 0]

Você tentou alterar as propriedades Left e Top dos seus componentes?

[bdexterholland 0]

confesso que não, porém, o que sugere? Acredita que se setar um valor para o left do botão superior ao valor left do checkbox vai sobrepor a configuração do alinhamento?

 

----

 

edit:

é deu certo, vlw kara...