Evento OnClick
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
Curtidas 0
Respostas
Afarias
03/12/2003
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+
GOSTEI 0
Gods
03/12/2003
heheheh
eh tranquilo eim?
valeu irmao.
precisando tamos ae
eh tranquilo eim?
valeu irmao.
precisando tamos ae
GOSTEI 0