贴出你的代码。
因为窗口最小化是WM_COMMAND消息,RESIZE事件的WM_SIZE事件。
因为窗口最小化是WM_COMMAND消息,RESIZE事件的WM_SIZE事件。
解决方案 »
- m_nMyAddress := $64什么意思啊
- 关于DELPHI问题的
- 枚举当前所有窗口后,如何得到所有类名?
- 打开工程文件delphi7就自动关闭?
- delphi 中的数组元素可以是字符串吗?
- delphi6控制word2000的问题
- 请问怎么用程序实现对文件夹加密?有什么好的方法
- 此贴开给“zzheaptech(风的往事)”接分,感谢热心的朋友们,向你们致敬!
- 这个函数哪里出错
- 用SetupBuilder做安装程序的时候,怎么在安装过程中加载其他可执行程序?
- 各位同行,你们喜欢用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;就是这样,窗体显示出来后,最小化按牛无效为什么?