[Cihan]

Nesnenin OnMouseMove event'ına

Kod:

Releasecapture;
(sender as TWincontrol).perform(wm_syscommand,$F012,0);

yazılması yeterlidir.

yanlış...doğrusu

type
TForm1 = class(TForm)
{...}
procedure MoveControl(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private-Declarations }
public
{ Public-Declarations }
end;
end;