criando função clicar no butão

Delphi

30/01/2005

Pessoal... blz...

é o seguinte deu uma olhada nas mesagem postada antes de posta essa
vi alguns exemplo. mais na hora de criar deu erro do mesmo jeito..

alguém poderia me descrever como criar uma função em um butão criando em tempo de execução ?
tipo quando clicar...

Var
Button : TButton;
begin
Button := TButton.Create(Form);
with Button do
begin
Parent := Form;
height := 32;
width := 128;
caption := ´Click em mim!´;
left := (Form.ClientWidth - width) div 2;
top := (Form.ClientHeight - height) div 2;
end;

como faço a função clicar ?

desde já agradeço 8)


Ajmsistemas

Ajmsistemas

Curtidas 0

Respostas

Massuda

Massuda

30/01/2005

Var 
  Button : TButton; 
begin
  Button := TButton.Create(Form); 
  with Button do 
  begin 
    Parent := Form; 
    height := 32; 
    width := 128; 
    caption := ´Click em mim!´; 
    left := (Form.ClientWidth - width) div 2; 
    top := (Form.ClientHeight - height) div 2; 

    OnClick := SuaProcedureQueTrataOnClick;
  end; 
...
SuaProcedureQueTrataOnClick (ou qualquer que seja o nome que você escolher) precisa ser declarada de modo compatível com o evento OnClick do botão:
// OnClick é do tipo TNotifyEvent
// e TNotifyEvent = procedure (Sender: TObject) of object

procedure TSeuForm.SuaProcedureQueTrataOnClick(Sender: TObject);
begin
  // trata o clique
end;
Por causa do ´of object´, a procedure precisa ser necessariamente um método de uma classe, normalmente um método do form onde o botão é posto; no exemplo, essa classe é TSeuForm


GOSTEI 0
Ajmsistemas

Ajmsistemas

30/01/2005

Var 
  Button : TButton; 
begin
  Button := TButton.Create(Form); 
  with Button do 
  begin 
    Parent := Form; 
    height := 32; 
    width := 128; 
    caption := ´Click em mim!´; 
    left := (Form.ClientWidth - width) div 2; 
    top := (Form.ClientHeight - height) div 2; 

    OnClick := SuaProcedureQueTrataOnClick;
  end; 
...
SuaProcedureQueTrataOnClick (ou qualquer que seja o nome que você escolher) precisa ser declarada de modo compatível com o evento OnClick do botão:
// OnClick é do tipo TNotifyEvent
// e TNotifyEvent = procedure (Sender: TObject) of object

procedure TSeuForm.SuaProcedureQueTrataOnClick(Sender: TObject);
begin
  // trata o clique
end;
Por causa do ´of object´, a procedure precisa ser necessariamente um método de uma classe, normalmente um método do form onde o botão é posto; no exemplo, essa classe é TSeuForm



Muito Obrigado!


GOSTEI 0
POSTAR