Forum: Multimedia
Delphi
by sirius,
7. Okt 2009
Button auf Form.
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if Shift = then
begin
Button1.Left:=Button1.Left-(FMouseOld.X-X);
//Button1.Top:=Button1.Top-(FMouseOld.Y-Y);
end;
Forum: Multimedia
Delphi
by sirius,
7. Okt 2009
Also ein parallele Bewegung zur Maus (und wahrscheinlich auch, wenn die Maus aus dem Formular heraustritt..), ok.
Dann darfst du nicht um 1 verändern, sondern um die Differenz deiner Mausbewegung.
zu Edit: Aber die Differenz muss nicht 1 sein.
Forum: Multimedia
Delphi
by sirius,
7. Okt 2009
Du darfst den Button nicht einfach um 1 verschieben, sondern musst ihn dahin verschieben, wo deine Maus ist (ich denke, dass willst du)