在Delphi下怎样隐藏窗口的标题栏？谢谢！

Question

在Delphi下怎样隐藏窗口的标题栏？谢谢！

Answer 1

SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

Answer 2

看错了
form.BorderStyle:=bsNone

Answer 3

SetWindowLong( Application.Handle, GWL_EXSTYLE,
               GetWindowLong(Application.Handle, GWL_EXSTYLE) or
               WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);

Answer 4

在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;

Answer 5

直接将BorderStyle属性设置成bsNone即可。

Answer 6

lovelymelon(小人物)兄：
你的程序怎么我弄不出效果啊？请明示。