GARANTIR DESCONTO

Fórum criando função clicar no butão #266727

30/01/2005

0

Delphi

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

Responder

Posts

30/01/2005

Massuda 

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


Responder

Gostei + 0

30/01/2005

Ajmsistemas 

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!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar