prüfen ob Formular verdeckt ist

[Sko]

Huch, wenn das Fenster maximiert ist gehts nicht mehr
EDIT: so siehts jetzt aus:

Delphi-Quellcode:

function TMainForm.IsOnTop: boolean;
begin
  result := false;
  if (WindowFromPoint(Point(Left + 10, Top + 10)) = Self.Handle)
  and (WindowFromPoint(Point(Left + Width - 5, Top + Height - 5)) = Self.Handle) then result := true;
end;