Instancia de un objeto

[dao_ar]

Hola gente

Necesito desasnarme (y mucho), con un tema : Tengo un objeto, en mi caso el TJvDesktopAlert (jedi) que es un mensaje emergente. necesito realizar varias instancias (dinamicas) de el, hasta aqui no hay problemas, el tema es que como TJvDesktopAlert tiene el evento onClose (como todo dialogo) quiero que ese evento se ejecute para todas las instancias creadas, he probado de todas las formas y no consigo que se execute decentemente. alguien podra acercar alguna idea ?

Código Delphi [-]
....
type
  TForm1 = class(TForm)
    Alerta: TJvDesktopAlert;
    procedure AlertaClose(Sender: TObject);
...
....
procedure ....
var
  i,n:integer;
begin
for i:=1 to n do
begin
    Alerta:=TJvDesktopAlert.Create(form1);
    ...
    Alerta.execute;
end;

procedure TForm1.AlertaClose(Sender: TObject);
begin
  .......
end;

Gracias a todos

[ecfisa]

Hola dao_ar.

No uso esos componentes, por lo que desconozco sus eventos.
Pero te pongo un ejemplo simple donde se asigna un método al evento OnKeyPress de un TEdit.

Código Delphi [-]
implementation
...
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  Beep;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to 9 do
   with TEdit.Create(Self) do
   begin
     Name:= 'Edit'+IntToStr(i+1);
     Text:= '';
     Left:= 8;
     Top:= 30*i+10;
     OnKeyPress:= EditKeyPress; // <- aqui la asignación
     Parent:= Self;
   end;
end;

Supongo que para tu caso la asígnación sería:

Código Delphi [-]
  Alerta.OnClose:= AlertaClose;

Espero haber entendido lo que preguntabas...

Saludos.