Botschaft bei Aktivieren eines Fensters

[dataspider]

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