请问我的应用程序在最小化的时候,图标已经加入了启动栏里,但任务栏里也有窗体,我想不要任务栏的,该怎么办? 等候... 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在application.OnMinimized事件中加入 mainform.hide就ok了 截取WM_ShowWindow消息。procedure TFrm....WMShowWindow(var Message:TWMShowWindow);begin inherited; if Message.Status=SW_PARENTCLOSING then begin {***截取窗体最小化的消息,重载,隐藏窗体并显示任务栏图标***} ShowWindow(Application.Handle,SW_HIDE); SetWindowLong(Application.Handle, GWL_EXSTYLE,WS_EX_TOOLWINDOW); {***显示任务栏图标过程,我是用控件的,:)***} ATrayIcon.Active :=True; end else begin ShowWindow(Application.Handle,SW_SHOW); SetWindowLong(Application.Handle, GWL_EXSTYLE,not WS_EX_TOOLWINDOW); { 隐藏任务栏图标过程 } ATrayIcon.Active :=False; end;end; 如何判断 IHTMLDocument2为空 键盘输入冲突问题 大家帮忙作一个 程序吧 谢谢了!!(急用) 如何将drawgrid中的某几格相邻单合并成一单元显示 傻傻一问( about QReport and FastReport) 给这段代码加注释! 小弟初学者,忍痛发出送分问题: 煩!!!屏保危機??? 我有一个C++的头,它里边声明的东西在Delphi里如何定义? 自定义 Form 设计中的参数传递问题 菜鸟问题在线等待,立马给分(ORACLE数据库登陆连接出错) 创建access数据库
procedure TFrm....WMShowWindow(var Message:TWMShowWindow);
begin
inherited;
if Message.Status=SW_PARENTCLOSING then
begin
{***截取窗体最小化的消息,重载,隐藏窗体并显示任务栏图标***}
ShowWindow(Application.Handle,SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,WS_EX_TOOLWINDOW);
{***显示任务栏图标过程,我是用控件的,:)***}
ATrayIcon.Active :=True;
end
else
begin
ShowWindow(Application.Handle,SW_SHOW);
SetWindowLong(Application.Handle, GWL_EXSTYLE,not WS_EX_TOOLWINDOW);
{ 隐藏任务栏图标过程 }
ATrayIcon.Active :=False;
end;
end;