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;