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;
