把窗口最小化到任务栏的代码怎么写? 把窗口最小化到任务栏的代码怎么写? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有是这种问题!唉~~~不会自己找资料嘛!?有那么多源代码可以参考!随便搜搜就有,像:TrayIcon.pas之类的!· 我知道啦:application.Minimize; 搜一搜以前的帖子就可以拉加段代码吧,前两天刚贴过,拦截窗体最小化消息的;private { Private declarations } Procedure WMSysCommand(Var msg : TMessage);Message M_SYSCOMMAND; ......procedure TForm1.WMSysCommand(var msg: TMessage);begin if (msg.WParam=SC_MINIMIZE) then begin application.minimize; end else Inherited;end; star_of_light(星星之光):你的方法不能满足我的要求,ShowWindow(Form1.Handle,SW_MINIMIZE);不能最小化到任务栏,其结果和设置windowstate:=wsMinimize 一样。只有application.Minimize;符合要求。silverwonder(刷卡太快请重刷); 象你这么写有什么好处吗?为何要写这么多呢? 没什么,就是在点击窗口最小化按钮时,使整个application最小化到任务栏。 这样的C++类,该怎么改写成delphi的? 为什么刚添加的内容,查询不出来,而退出系统重新查询却能显示??? 沿海地区,delphi Coder薪水调查 关于 EmbeddedWB 的问题 [简单问题]关于连接的SQL 语句 关于TMediaPlayer--- 关于树型结构的数据库实现方法 读取一个二进制文件问题? 远程线程跳板---实现木马的深度隐藏技术!!!!!!!!!!!!!!!! 用Delphi做Com对象? 问个小问题,回车符在字符串中如何表示? delphi 7中的quick report怎么不见啦
唉~~~
不会自己找资料嘛!?有那么多源代码可以参考!随便搜搜就有,像:TrayIcon.pas之类的!·
application.Minimize;
{ Private declarations }
Procedure WMSysCommand(Var msg : TMessage);Message M_SYSCOMMAND;
......
procedure TForm1.WMSysCommand(var msg: TMessage);
begin
if (msg.WParam=SC_MINIMIZE) then
begin
application.minimize;
end
else
Inherited;
end;
ShowWindow(Form1.Handle,SW_MINIMIZE);不能最小化到任务栏,其结果和
设置windowstate:=wsMinimize 一样。
只有application.Minimize;符合要求。
silverwonder(刷卡太快请重刷);
象你这么写有什么好处吗?为何要写这么多呢?