Hi!
Ich machs immer mit einem Timer, der das Intervall 1 hat und Anfangs enabled:= false gesetzt ist. Dann ziehe ich irgendeine Komponente mit der ich das Prog verschieben will aufs Forumular und schreibe ins OnMouseDown ereignis von der Kompo timer1.enabled:=true; und entsprechend ins OnMouseUp ereignis dann Timer1.enabled:=false;
Hier der Code im OnTimer ereignis vom Timer:
Delphi-Quellcode:
form1.Top:=mouse.CursorPos.Y;
form1.left:=mouse.CursorPos.x;
So mache ich das immer, ich lasse mich aber gerne einer besseren Methode belehren!
Gruss
PigfaceJoe
//Edit: Alles klar, die obige Methode ist besser
