很菜的问题窗口拖动的问题(1分)

当窗口的style 设置成 bsnone的时候.
怎么处理拖动事件?
(要源码)
谢谢

晕，处理系统信息，具体的我也不会，这里的人都只说处理系统信息。
你自己去网上找资料吧，我想这里搜索一下应该会有很多的！

procedure MyFormMove(const FHwd:tform);
begin
ReleaseCapture;
SendMessage(fhwd.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
myformmove(form1);
end;

在窗何等的mousedown事件加下面两句就可以
releasecapture;
perform(wm_syscommand,$f012,0);