关于最小化的问题(50分)

  • 主题发起人 主题发起人 settingsun
  • 开始时间 开始时间
S

settingsun

Unregistered / Unconfirmed
GUEST, unregistred user!
我现在的程序是运行后直接隐藏到托盘区去,在任务栏上并没有显示,现在是如果显示窗体
后,再点右上角的最小化按钮,在任务栏上就显示出来了,如何能不在任务栏上显示,直接
隐藏到托盘区,还有就是点窗体右上角的关闭按钮,并不是真正的关闭,只是隐藏到托盘
区去,就象网络快车那样的,还望指教。
 
1、不在任务栏显示以前讨论过很多了,你自己查一下
2、处理form的onclosequery事件,1)设窗体为最小化,2)CanClose := false;
 
看一下书!
最小化:xxx(form).hide;
关闭:处理CloseQuery事件,设置CanClose:=false;xxx(form).hide;
 
1、SetWindowLong( Application.Handle, GWL_EXSTYLE,
WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
2、处理form的onclosequery事件,1)隐藏到托盘区,2)CanClose := false;
另 网络快车的浮动窗口即使你点击显示桌面它也不被最小化的,你可用下面的方法:
procedure CreateParams(var Params: TCreateParams);override;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams( Params);
Params.ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
Params.WndParent := 0;
end;
 
后退
顶部