Dúvida Simples, componente em tempo de execução......
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......
Agradeço a Atenção......
Ntrafa
Curtidas 0
Respostas
Motta
07/05/2004
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.
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.
GOSTEI 0