Delphi 从任务栏中点击图标恢复窗体
来源:互联网 发布:美图秀秀拼图软件 编辑:程序博客网 时间:2024/06/09 21:15
procedure TForm1.WMBarIcon(var Message:TMessage);
var
lpData:PNotifyIconData;
begin
if (Message.LParam = WM_LBUTTONDOWN) then
begin
//如果用户点击任务栏图标则将图标删除并恢复窗口。
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := 'NIUBI';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_DELETE,lpData);
dispose(lpData);
Form1.Visible := True;
end;
end;
var
lpData:PNotifyIconData;
begin
if (Message.LParam = WM_LBUTTONDOWN) then
begin
//如果用户点击任务栏图标则将图标删除并恢复窗口。
lpData := new(PNotifyIconDataA);
lpData.cbSize := 88;//SizeOf(PNotifyIconDataA);
lpData.Wnd := Form1.Handle;
lpData.hIcon := Form1.Icon.Handle;
lpData.uCallbackMessage := WM_BARICON;
lpData.uID :=0;
lpData.szTip := 'NIUBI';
lpData.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
Shell_NotifyIcon(NIM_DELETE,lpData);
dispose(lpData);
Form1.Visible := True;
end;
end;
- Delphi 从任务栏中点击图标恢复窗体
- Delphi XE4 主窗体隐藏之后任务栏没有图标显示。
- c#无标题窗体点击任务栏图标正常最小化或还原
- WPF 程序点击任务栏图标显示隐藏最小化窗体
- Delphi产生任务栏图标【TNotifyIconData】
- 点击任务栏图标让窗体可以隐藏或显示(FormBorderStyle设置为None)
- C#实现无标题栏窗体点击任务栏图标正常最小化或还原的解决方法
- C#实现无标题栏窗体点击任务栏图标正常最小化或还原的解决方法
- Qt实现窗体无边框,并且点击windows任务栏图标可以最小化
- swing 自定义最小化按钮后,实现点击任务栏图标,使窗体重新显示
- DELPHI 让窗体不在任务栏显示
- Delphi窗体任务栏隐藏和透明
- Delphi笔记-在任务栏通知区中加图标
- Delphi 实现任务栏多窗口图标显示
- Delphi 在任务栏隐藏程序图标
- C#无标题Form点击任务栏图标最小化
- Delphi中添加窗体系统菜单和菜单点击处理
- delphi中从DLL,EXE,ICL中提取图标
- C#对ADO.NET数据库的简单操作
- 《中山大学汇编语言》视频教程下载地址
- Delphi 中最小化窗体是隐藏并在任务揽中显示图表和进程名
- 大学生求职要找对独门武器 四种资格认证受关注
- MIDlet签名以及出处鉴定和完整性认证
- Delphi 从任务栏中点击图标恢复窗体
- 现在的学生,太牛B了。。。。。
- Delphi 中找到系统进程并将进程KILL
- JSP三种页面跳转方式
- Google背后的IT架构策略揭秘
- [全国信息技术远程培训][网站建设][14讲][asf]
- js導航菜單
- 回某网友关于AxD的仿真问题
- TIOBE 宣布Python为2007年度程序语言