Check ich irgendwie nicht...
ich will ja den Integerwert nicht angeben, der ändert sich doch ständig...
So, klappt das irgendwie ansatzweise...nur blinkt dann das Ding wie blöde und taucht auch rechts wieder auf:
Delphi-Quellcode:
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if I=true then
Shape1.left:=Mouse.CursorPos.X - (Shape1.left-Mouse.CursorPos.X);
end;
//edit...ich glaub ich war wieder mal zu blöd, muss nochma was gucken
X is ja Mouse.CursorPos.X..dooh...na ma sehn...