скажите пажалста как сделать

[-=t-r-a-s-h=-]

чтоб можно было программу перетаскивать за само окно или за какой-л компонент

[Terran]

Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
End;

Или

Private
    { Private declarations }
    Procedure NCHitTest(Var WMNCMsg: TWMNCHitTest); Message WM_NCHITTEST;
...
Procedure TForm1.NCHitTest(Var WMNCMsg: TWMNCHitTest);
Begin
Inherited;
With WMNCMsg Do
If Result = HTClient Then
Result:=HTCaption;
End;

[mihali4]

Читаем правила, пишем нормальные названия тем.
Закрыто.