Evento OnClick

03/12/2003

1

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;


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+


Responder

03/12/2003

Gods

heheheh
eh tranquilo eim?

valeu irmao.

precisando tamos ae


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira