Urgente !!!!! Criar Botão em Execução

Delphi

28/04/2003

Olá Pessoal, estou precisando muito da ajuda de vcs.


Preciso saber como faço para colocar código no evento de um botão criado em tempo de execução.


Obs. : Criar o botão eu já sei, só preciso saber como colocar o código no evento do botão.


Agradeço desde já,

Obrigado.


C@rdoso

C@rdoso

Curtidas 0

Respostas

Raphael Oliveira

Raphael Oliveira

28/04/2003

Tenta fazer este teste

procedure Button1Click(Sender: TObject);
procedure ClickBotao (Sender: TObject);
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var   Painel : TPanel;
      Botao : TButton;
begin
    Painel := TPanel.Create(Self);
    with Painel do
    begin
      Parent := self;
      SetBounds (50,80,200,300);{ É a mesma coisa que declara left,  top, height e width separadamente
      left := 50;
      top := 80;
      Height := 200;
      Width := 300;}
    end;
Botao := TButton.Create(Self);
    with Botao do
    begin
      Parent := Painel;
      Caption := ´Botão´;
      left := 100;
      top := 60;
      Height := 80;
      Width := 100;
      OnClick := ClickBotao;
    end
end;

procedure TForm1.ClickBotao(Sender: TObject);
begin
  showmessage(´Tá Funcionando´);
end;


Neste exemplo eu tenho um botão e ao clicar neste botão vai cria um panel com um botão dentro deste panel e este botão tem um showmessage.

Veja se te serve


GOSTEI 0
POSTAR