Rechteck verschieben

[delphicoder123]

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  rechteck1.anfassen;
end;

Delphi-Quellcode:

procedure TRechteck.anfassen;
begin
   if rechteckGetroffen then
    z:=1;
end;

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;