Posicionando objetos criados em RunTime
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:
/applications/core/interface/imageproxy/imageproxy.php?img=http://uploaddeimagens.com.br/imagem/index/816Sem-ttulo.png&key=0a23614e5c32c95cd804b0cafea573c263ea3a366560a5fd5c576e70babe8294" alt="Imagem Postada" />
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
/applications/core/interface/imageproxy/imageproxy.php?img=http://uploaddeimagens.com.br/imagem/index/798Sem-ttulo.png&key=7c303c3d1b957b06bc24a1c465a1dcbf41de90fe1dbbd2022b07e8f2da1a7f75" alt="Imagem Postada" />
Discussão (2)
Carregando comentários...