Bei mir wird beim onmouseDown Event folgender Code ausgeführt:
"formular" ist eine private Variable.
Warm bekomme ich immer noch die falschen koordinaten wenn ich innerhalb vom Rechteck bin?
Delphi-Quellcode:
function TRechteck.rechteckGetroffen(): Boolean;
var
pt: TPoint;
begin
pt:= Mouse.CursorPos;
{if (formular.ScreenToClient(Mouse.CursorPos).X >= x1) AND (formular.ScreenToClient(Mouse.CursorPos).x <= x2) AND
(formular.ScreenToClient(Mouse.CursorPos).Y >= y1) AND (formular.ScreenToClient(Mouse.CursorPos).Y <= y2) then
result:=true
else
result:=false; }
pt := formular.screenToClient(pt);
if (pt.X >= x1) AND (pt.x <= x2) AND
(pt.Y >= y1) AND (pt.Y <= y2) then
result:=true
else
result:=false;
end;