拖动无标题窗体时产生的问题

Question

setwindowlong(self.Handle,gwl_exstyle,getwindowlong(self.Handle,gwl_exstyle) or ws_ex_transparent);
self.Brush.Style:=bsclear;
self.BorderStyle:=bsnone;
将窗体的标题栏隐去，
ReleaseCapture;
Perform(WM_SYSCOMMAND,$f012,0);
用上两句拖动窗体时，标题栏会保持原先屏幕的背景，并显示出来。如何真的将标题栏去掉，或拖动时如何不显示标题栏，请帮忙，谢谢！

Answer 1

应该在窗体的private部分声明
procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;
然后写代码
procedure TForm1.wmnchittest(var msg:twmnchittest);
begin
inherited;
if (htclient=msg.result) then msg.result:=htcaption;
end;