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;