Application.OnActivate...

[Ricane]

Also,

vielleicht habe ich mich ja auch etwas undeutlich ausgedrückt...

Das Ereignis

Code:

procedure TForm1.FormActivate(Sender: TObject);
begin

end;

ist nicht gemeint. Dann wird nur beim starten der Form das Event ausgelöst. Ich möchte aber das das Ereignis jedesmal ausgelöst wird, wenn die Form den Fokus erhält. Das wäre dann

Code:

Application.OnActivate

aber wie bindet man das ein ...


Grüsse,

Ricane

[Ricane]

Ahh ....

jetzt habe ich es zufällig selbst gefunden. Es gibt ein Steuerelement welches sich um diese Events kümmert. Das Element heisst "ApplicationEvents"


Grüsse,

Ricane

[jbg]

Zitat von Christian Seehase:

Wenn das Programm den Focus erhält wird das OnActivate des Application Objektes ausgelöst (das des Formulares nur einmal zu Beginn).

Um es mit deinen eigenen Worten zu sagen: "nicht ganz"
Wenn man nur 1 Formular hat, dann stimmt deine Aussage. Hat man hingegen mehrere Formulare, so wird TForm.OnActivate sehr wohl häufiger aufgerufen.

[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;