Botschaft bei Aktivieren eines Fensters

[oki]

Noch mal zum Geraderücken. Ich hatte Bernhards Beitrag so verstanden, dass ich eine eigene Botschaft implementiere. Auf den Gedanken vorhandene Ereignisse zu verwenden hätte ich eigentlich kommen müssen. Aber manchmal hat man es eben schwer. :mrgreen:

Gruß oki

[jaenicke]

Ach jetzt verstehe ich das erst. :wink:

Damit sollten für spätere Leser des Threads dann auch alle Klarheiten restlos beseitigt sein. :mrgreen:

[dataspider]

Hi,

was spricht gegen Screen.OnActiveFormChange?

Gruß, Frank

[jaenicke]

Diese am Anfang genannte Anforderung:

Zitat:

Zitat von oki

jetzt möchte ich, dass beim Aktivieren eines der Fenster mein MainForm automatisch mitbekommt, welches Fenster gerade deaktiviert und welches aktiviert wurde.

Das geht nur mit OnActivate und OnDeactivate.

[oki]

Hi Dataspider,

wird das Ereignis von allen Formularen ausgelöst oder nur von den TopLevel-Formularen? Ich teste das mal.

Gruß oki

[oki]

Das sagt die Hilfe zu OnActiveFormChange:

Zitat:

In einer Ereignisbehandlungsroutine für OnActiveFormChange können Sie eine Aktion festlegen, die ausgeführt werden soll, wenn ein neues Formular aktiviert wird. OnActiveFormChange tritt ein, wenn sich das aktive Formular einer Anwendung ändert, jedoch nicht, wenn ein Formular aktiv wird, weil die Anwendung aktiviert wurde.

Hört sich nicht so gut an.

grup oki

[dataspider]

Ja, aber es wird IMHO sehr wohl ausgelöst, wenn die Anwendung durch Klick auf ein Form (welches vorher nicht das aktive war) aktiviert wird.

Cu, Frank

[oki]

Auch ohne Click? Z.B. wenn es per Code creiert und mit Show angezeigt wird?

Gruß

[dataspider]

Zitat:

Zitat von oki

Auch ohne Click? Z.B. wenn es per Code creiert und mit Show angezeigt wird?

Delphi-Quellcode:

procedure TForm2.ActiveFormChange(Sender: TObject);
begin
  MessageDlg(Screen.ActiveForm.ClassName, mtInformation, [mbOK], 0);
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  Screen.OnActiveFormChange := ActiveFormChange;
  with TForm5.Create(Application) do
    Show;
end;

Zumindest wird hier das Ereignis ausgelöst und die MessageBox zeigt mir TForm5 an.

Cu, Frank

[oki]

Hi Dataspider,

dann ist das auch ein gangbarer Weg und man kann die Ereignisse frei lassen. Dank für die Mühe.

Gruß oki