desenhar botao no panel no canto superior direito delphi

Delphi

01/10/2013

Galera eu estou precisando desenhar um botão em tempo de execução no panel no canto superior direito delphi, para pode fechar o formulário.

Eu já crio o botão, só não consigo alinha no canto superior direito do formulário.

var
  Botao : TButton;
begin
    Botao := TButton.Create(Self);
    with Botao do
    begin
      Parent := PTitulo;
      Caption := 'x';
      Anchors := [akRight, akBottom];
      left := -100;
      Height := 20;
      Width := 20;
     // OnClick := ClickBotao;
    end;
Sidney Abreu

Sidney Abreu

Curtidas 0

Respostas

Marcos Oliveira

Marcos Oliveira

01/10/2013

Sidney, tire o "Left" seu fonte, e coloque as linhas abaixo:

      Top := 0;
      Left := PTitulo.Width - 20;


Att,

Marcos
GOSTEI 0
Sidney Abreu

Sidney Abreu

01/10/2013

vlw amigo, deu certo.abraço
GOSTEI 0
POSTAR