[Delphi] border style="bsnone"

[Рамик]

как сделать чтобы окно программы можно было перетаскивать по рабочему столу?
а то когда выбираешь: border style="bsnone"
перетаскивать нельзя....

[puporev]

//процедура перемещения формы мышью за любое место
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
                 Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 Form1.perform(WM_SysCommand,$F012,0);
end;

[DomiNick]

Если просто перетаскивать, то этот код прекрасно подойдёт...

Но на всякий случай пусть тут будет вариант с "WMNCHITTEST"...

...
  public
    { Public declarations }
    procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
...

Procedure Tform1.WMNCHITTEST(var Msg: TMessage);
Begin
Inherited;
If Msg.Result=HTCLIENT Then Msg.Result:=HTCAPTION;
End;

UpDate

Можно например просто написать:

Procedure Tform1.WMNCHITTEST(var Msg: TMessage);
Begin
Inherited;
Msg.Result:=HTCAPTION;
End;

Тогда любой щелчок на форме будет расцениваться как щелчок по заголовку формы (в том числе не будет нажиматься кнопка "Закрыть")...

Можно ещё поэксперементировать:

Msg.Result:=HTERROR;
// или
Msg.Result:=HTLEFT;