Evento OnClick

Delphi

03/12/2003

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;


Gods

Gods

Curtidas 0

Respostas

Afarias

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+


GOSTEI 0
Gods

Gods

03/12/2003

heheheh
eh tranquilo eim?

valeu irmao.

precisando tamos ae


GOSTEI 0
POSTAR