Hi,
ich habe vor, dass wenn man mit dem Mauszeiger auf ein Panel drückt und die Maus bewegt, dass dann das Panel proportional zum Mauszeiger bewegt wird. Ein Beispiel: Wenn ich den Masuzeiger um 5 Punkte nach links verschiebe soll sich das Panel auf um so viele Punkte nach links verschieben. Bis jetzt habe ich folgendes gemacht aber der Effekt ist nicht der gleiche, da es hier nur richtig funktioniert wenn man halt den Mauszeiger oben links in der Ecke des Panels hat und dann verschiebt. Wenn man zum Beispiel mitten in der Mitte des Panels drückt und verschiebt soll nicht gleich die obere linke Ecke des Panels zum Mauszeiger wanderen sondern das Panel soll sich jetzt halt proportional zum Mauszeiger wie schon beschrieben z.B. 5 nach links bewegen wenn das der Mauszeiger macht egal wo der auf dem Panel ist.
Ich hoffe Ihr könnt mir helfen und versteht wie ich das meine.
Delphi-Quellcode:
procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then begin
Panel1.Left := ScreenToClient(Mouse.CursorPos).x;
Panel1.Top := ScreenToClient(Mouse.CursorPos).y;
end;
MFG Lars Wiltfang