prüfen ob Formular verdeckt ist

[Sko]

Ich wollte die Mitte des Formulars probieren nachdem es mit den Ecken nicht geklappt hat, vorher hatte ich die Ecken genommen:

Delphi-Quellcode:

function TMainForm.IsOnTop: boolean;
var
  p1, p2 : TPoint;
begin
  result := false;
  p1.X := MainForm.Left;
  p1.Y := MainForm.Top;
  p2.X := MainForm.Left + MainForm.Width;
  p2.Y := MainForm.Top + MainForm.Height;
  if (WindowFromPoint(p1) = MainForm.Handle) and (WindowFromPoint(p2) = MainForm.Handle) then result := true;
end;