| csyasar | 30.04.2004 - 13:47:26 |
| herhangi bir nesnenin onmousedown olayına ekleyin(eğer programınızda birden fazla form kullanıyorsanız sorun
çıkarabiliyor (formdan forma geçiş yani tıklamadan sonra ikinci tıkladığın form tekrar create oluyor ve formdaki bilgiler sıfırlanıyor)) procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin releasecapture; perform(wm_syscommand,$f012,0); end; //------------------------------------------------------------------------------ bu yöntemde uzun ama daha sorun çıkarmadı var X1,Y1:Integer; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin X1:=X; Y1:=Y; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if HiWord(GetAsyncKeyState(VK_LBUTTON)) > 0 then begin Form1.Left:=Form1.Left + X - X1; Form1.Top :=Form1.Top + Y - Y1; end; end; | |