Как сделать чтоб окно можно передвигать мышкой?

[Delphi]Как сделать чтоб окно можно передвигать мышкой?

У меня есть Form1 я поставил BorderStyle на bsNone . Как сделать чтоб окно можно передвигать мышкой в разные стороны? Тоесть после комплектации окно стоит на месте и его нельзя передвинут.

 

На событие OnMouseDown вешаешь

Code:

 ReleaseCapture;
 Form1.perform(WM_SysCommand,$F012,0);

 

Rastamanka, спосибо.... Выручил!