贴出你的代码。
因为窗口最小化是WM_COMMAND消息,RESIZE事件的WM_SIZE事件。
因为窗口最小化是WM_COMMAND消息,RESIZE事件的WM_SIZE事件。
解决方案 »
- 怎么把二进制文件已16进制的方式读取到一个String中?
- 谁有dbctrlgrid使用的经验分享一下。主要是在每个面板(panle)中可以按不同的条件显示不同的颜色以方便区分
- 有没有能把dbgrid的内容saveas另存出来的办法
- 公司全线上下换液晶,再散
- ACCESS的查询使用两问,谢谢大家了!
- midas 初级问题,请指点。
- 急急:在数据集的基础上进行统计??
- 哪有 皇牌空战4 下载呀!! 请请指教!!
- 平均运算速度2MIPs.每秒执行几条指令 ?
- 尝试着释放资源的问题
- 各位同行,你们喜欢用ActiveX组件吗?
- Delphi4在Win2000下报错“Cannot Create File!”!!!急、急、急
{应用程序最小化时图标显示在任务栏}
procedure TMainForm.AppMinimized(Sender:TObject);
begin
NID.cbSize:=SizeOf(TNotifyIconData);
NID.hIcon:=Application.Icon.Handle;
NID.szTip:= '彩虹2.0 Beta ';
NID.uCallbackMessage:=WM_TrayMessage;
NID.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
NID.uID:=0;
NID.Wnd:=Handle;
Shell_NotifyIcon(NIM_ADD,@NID);
ShowWindow(Application.Handle,SW_Hide);
end;procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=AppMinimized;
AppMinimized(nil);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
application.OnMinimize:=OnMin;
end;
procedure TMainForm.AddSystrayIcon();
begin
nid.cbSize:=sizeof(_NOTIFYICONDATAA);
nid.Wnd:=Handle;
nid.uID:=iid;
nid.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
nid.uCallbackMessage:=mousemsg;
nid.hIcon:=application.Icon.Handle;
nid.szTip:='SoftBox';
Shell_NotifyIconA(NIM_ADD,@nid);
end;procedure TMainForm.DelSystrayIcon();
begin
nid.cbSize:=sizeof(_NOTIFYICONDATAA);
nid.Wnd:=Handle;
nid.uID:=iid;
nid.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
nid.uCallbackMessage:=mousemsg;
nid.hIcon:=application.Icon.Handle;
nid.szTip:='SoftBox';
Shell_NotifyIconA(NIM_DELETE,@nid);
end;procedure TMainForm.OnMin(Sender:Tobject);
begin
AddSystrayIcon();
MainForm.Hide;
end;
{从SYSTRAY中退出并显示窗体}
procedure TMainForm.PM_Systray_OpenClick(Sender: TObject);
begin
MainForm.Show;
DelSystrayIcon();
end;就是这样,窗体显示出来后,最小化按牛无效为什么?