Hi ich habe eine Frage bzgl. dem verschieben von Objekten.
Ich möchte ein Programm schreiben, indem eine checkbox, wenn sie checked=true ist, der Maus folgt (solange diese im Panel ist, in dem sich die checkbox befindet).
Wenn ich die Checkbox wieder deaktiviere, soll die checkbox dort bleiben, wo sie zuletzt war.
Ich habe das so versucht aber klappt überhaupt nicht:
Delphi-Quellcode:
global: dragaktiv:Boolean;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
CursorPos:TPoint;
begin
if Dragaktiv=True then begin
GetCursorPos(CursorPos);
Centercheck.Left:=Cursorpos.X; Centercheck.Top:=Cursorpos.Y;
end;
end;
procedure TForm1.CenterCheckClick(Sender: TObject);
begin
if Centercheck.Checked=False then Dragaktiv:=True;
else Dragaktiv:=False;
end;
Problemansatz: was ich denke, ist, dass die Funktion GetCursorPos die Position des Totalen Bildschirms angibt, der Left bzw Top von der CHeckbox aber nur im Panel Funktioniert..nur ich habe keine Ahnung wie ich das ändern kann