onfokus bei Tform

[Evian]

Ich möchte gern, dass immer wenn meine Mainform den Fokus erhält, eine bestimmte Funktion ausgeführt wird. Leider hat TForm keinen Event, der eintritt wenn die Form den Fokus erhält. Wie kann ich einen solchen Event selber schreiben bzw. gibt es dafür eine clevere Möglichkeit?

gruss

Evian

[Markus K.]

Hallo Evian,
eventuell könntest du dafür die Ereignisse onShow bzw.onActivate benutzen. Zum anderen gibt es die Methode Focused, welche angibt ob das Control den Focus hat.

Tschüß Markus

[Evian]

onShow bzw.onActivate bringen mich leider nicht weiter, da meine Form wärend des nicht im Fokus seins nicht gehidet ist. Aber zu der Methode, irgendwie habe ich mit Methoden noch so meine Probleme, wie wende ich die an?!

[Markus K.]

ein Beispiel:
if Form1.Focused then ... Zum anderen ist die Form nur aktiv wenn sie den Fokus besitzt. Wenn sie im Hintergrund ist, ist sie also nicht aktiv. Wenn du die Form nun aktivierst, erhält sie den Fokus. So war das glaub ich...

Tschüß Markus

[Evian]

Zitat von Markus K.:

ein Beispiel:
if Form1.Focused then ... Zum anderen ist die Form nur aktiv wenn sie den Fokus besitzt. Wenn sie im Hintergrund ist, ist sie also nicht aktiv. Wenn du die Form nun aktivierst, erhält sie den Fokus. So war das glaub ich...

Tschüß Markus

Mh... naja "if Form1.Focused then " hilft mir nicht wirklich weiter. Ich bräuchte schon einen Event, und nen Timer der jede Sekunde überprüft ob meine Form inFokus ist, wäre auch nicht so toll.

onActivate geht außerdem 100pro nicht, da dieser Event nur das erste mal onshow symbolisiert und kaum was mit dem Fokus zu tun hat.

[Niko]

Zitat von Delphi-Hilfe:

Mit OnActivate können Sie bestimmte Operationen durchführen, sobald das Formular den Fokus erhält (wenn es beispielsweise angeklickt wird). [...]
Übergibt Windows den Fokus von einer anderen Anwendung, wird das Ereignis OnActivate des Anwendungsobjekts (TApplication), nicht des Formulars ausgelöst.

[Evian]

Danke!!!!!!! Das war genau das, was ich gesucht habe.
Hatte zwar auch in die Hilfe geschaut, aber einfach nix gefunden.

gruss


Evian