如何使标题不显示在工具栏上?(50分)

  • 主题发起人 主题发起人 adan
  • 开始时间 开始时间
A

adan

Unregistered / Unconfirmed
GUEST, unregistred user!
我做了一个悬浮窗口,象flashget一样的,但不能象它一样在工具栏上不显示标题?
怎样才能做到这一点呢?
代码:
 
你把那个悬浮窗体broderslty:=none
 
Ok 这样吧:
procedure TForm1.CreateParams(var Params:TCreateParams);//别忘了在private中声名
begin
params.sytle:=WS_POPUP;//这行很重要

end;
 

procedure TForm1.FormCreate(Sender: TObject);
begin
try
setwindowlong(application.Handle,gwl_exstyle,ws_ex_toolwindow);
except
showmessage('cannot change successfully!');
end;

end;
 
谢谢指点,但是还有一点小问题,不好意思起先没有讲很清楚。
悬浮窗口不是主窗口,主窗口显示是标题还是要显示在工具栏上,
主窗口隐藏时,标题不要显示在工具栏上了。yangyugw的方法
好象是主窗口隐藏时,标题仍显示在工具栏上了。硬木花椒则将
主窗口显示时,标题也不显示在工具栏上了。
 
后退
顶部