Nur aktuelles Formular geöffnet?

[dataspider]

Über Screen.FormCount erhalte ich die Anzahl der auf dem Bildschirm angezeigten Formulare.

Delphi-Quellcode:

function TForm1.OnlyThisForm: Boolean;
begin
  if Self = Application.MainForm then
    result := (Screen.FormCount = 1)
  else
    result := (Screen.FormCount = 2);

end;

Frank