Re: [delphi-br] Adicionar evento a um componente

Thu, 27 Mar 2008 12:38:25 -0700 

Crie um procedure como o mesmo escopo do evento desejado. Depois basta associar.

Exemplo:

TForm1 = class(TForm)
  Button1: TButton;
  procedure FormCreate(Sender: TObject);
public
  procedure MeuClickDoBotao(Sender:TObject);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.OnClick := MeuClickDoBotao;
end;

procedure TForm1.MeuClickDoBotao(Sender:TObject);
begin
// código
end;


Aqui criei um procedure para ser executado no click do botão, e atribui ele 
manualmente no FormCreate.

Alessandro DUARTE de Moraes
A.C. Santa Casa do Rio Grande.
http://www.santacasarg.com.br

  ----- Original Message ----- 
  From: Alcistemas Informática 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, March 27, 2008 11:25 AM
  Subject: [delphi-br] Adicionar evento a um componente


  Como faço para adicionar via código, eventos a um componente..

  ex:

  function imprime_grid(Grid :TDBGrid):String;
  var
  RV : TRvSystem;
  begin
  RV := TRvSystem.Create(Application);

  /// A QUI PRECISO ADICIONAR O EVENTO ONPRINT.. ALGUNS CÓDIGOS DO COMPONENTE 
RV (Tipo Rave Reports)
  /// pois é nele que se escreve o código a ser impresso no relatório

  RV.Execute;
  end;

  Alcione Guimarães
  e-mail: [EMAIL PROTECTED]
  Cel: 11-9515-8707
  SIP VOIP: 3301040
  SKYPE: alcistemas
  msn: [EMAIL PROTECTED]

  [As partes desta mensagem que não continham texto foram removidas]



   
  -------------------------- 
  E-mail Seguro Vetorial.net 

  Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, 
  encaminhe para [EMAIL PROTECTED] 

  Chave de Identificação: 54568,47ebdf7e339411565664877 


[As partes desta mensagem que não continham texto foram removidas]

Responder a