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