D�vida Simples, componente em tempo de execu��o......

Question

Pessoal, pesso a aten��o de voc�s para uma duvida q creio ser simples, como atrubuir um evento a um componente criado em tempo de execu��o, a cria��o tudo ok, mas como adiciono, por exemplo, c�digo no evento onCloseQuery do form em tempo de execu��o??

Agrade�o a Aten��o......

Motta · Answer

atribua o evento a outro de mesmo escopo

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls;

type
TForm1 = class(TForm)
Query1: TQuery;
Button1: TButton;
procedure Query1AfterClose(DataSet: TDataSet);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure fechando(DataSet: TDataSet);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.fechando(DataSet: TDataSet);
begin
Showmessage(�Fechando�);
end;

procedure TForm1.Query1AfterClose(DataSet: TDataSet);
begin
// Verifique o padr�o de chamada
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
with TQuery.Create(self) do
try
AfterClose := fechando;
finally
Free;
end;
end;

end.

F�rum D�vida Simples, componente em tempo de execu��o...... #230646