Evento OnClick
03/12/2003
0
to com uma duvida
tipo eu fiz um botao q cria um novo botao
e tava quenrendo colocar um evento OnClick neste botao criado.
alguem sabe como?
o codigo ficou assim:
With TButton.Create(Self) Do
Begin
Left := 320;
Top := 352;
Width := 113;
Height := 27;
Caption := ´Botao doidao´;
AutoSize := False;
TabOrder := 2;
Transparent := True;
ModalResult := 0;
Parent := TabSheet;
Spacing := 4;
ResHandle := 0;
End;
tipo eu fiz um botao q cria um novo botao
e tava quenrendo colocar um evento OnClick neste botao criado.
alguem sabe como?
o codigo ficou assim:
With TButton.Create(Self) Do
Begin
Left := 320;
Top := 352;
Width := 113;
Height := 27;
Caption := ´Botao doidao´;
AutoSize := False;
TabOrder := 2;
Transparent := True;
ModalResult := 0;
Parent := TabSheet;
Spacing := 4;
ResHandle := 0;
End;
Gods
Curtir tópico
+ 0
Responder
Posts
03/12/2003
Afarias
primeiro crie um método (no Form por ex) do ´tipo´ TNotifyEvent, ex::
TForm1 = class(TForm)
{...}
public
procedure CliqueDoBotao(Sender: TObject);
end;
implemente este método::
procedure TForm1.CliqueDoBotao(Sender: TObject);
begin
ShowMessage(´beleza´);
end;
e então, atribua este método ao OnClick do botão em questão... ex::
with TButton.Create(Self) do
begin
Left := 320;
Top := 352;
{...}
OnClick := CliqueDoBotao;
end;
T+
TForm1 = class(TForm)
{...}
public
procedure CliqueDoBotao(Sender: TObject);
end;
implemente este método::
procedure TForm1.CliqueDoBotao(Sender: TObject);
begin
ShowMessage(´beleza´);
end;
e então, atribua este método ao OnClick do botão em questão... ex::
with TButton.Create(Self) do
begin
Left := 320;
Top := 352;
{...}
OnClick := CliqueDoBotao;
end;
T+
Responder
Clique aqui para fazer login e interagir na Comunidade :)