Application.OnActivate...

[Snoopy240871]

Also wenn ich richtig vermute was du meinst ist dies ganz einfach...


1. Füge zuerst im "FormCreate" Ereignis den folgenden Code ein

procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do
begin
OnMinimize:=ApplicationMinimize;
OnRestore:=ApplicationRestore;
OnActivate:=ApplicationActivate;
end;
end

2. Erzeuge dann unter "Private" die entsprechenden Prozedur Deklarationen

procedure ApplicationMinimize(Sender: TObject);
procedure ApplicationRestore(Sender: TObject);
procedure ApplicationActivate(Sender:TObject);

3. Anschließend im Implementation's teil entsprechend die Ereignisse füllen


procedure TForm1.ApplicationActivate(Sender: TObject);
begin
ShowMessage('Mein Anwendung wurde grade aktiviert !');
end;

entsprechendes gilt für ApplicationRestore und ApplicationMinimize
Gruß Martin...


end;