Delphi 从任务栏中点击图标恢复窗体
2008-01-15 09:38
232 查看
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;
相关文章推荐
- 点击任务栏图标让窗体可以隐藏或显示(FormBorderStyle设置为None)
- C#实现无边框窗体点击任务栏图标正常最小化和还原
- c#无标题窗体点击任务栏图标正常最小化或还原
- C#实现无标题栏窗体点击任务栏图标正常最小化或还原的解决方法
- C#:隔离点击任务栏上的图标时的“最小化或者恢复”的效果
- Qt实现窗体无边框,并且点击windows任务栏图标可以最小化
- 问题-[Delphi]SendMessageTimeout调用后卡住点击任务栏还会出现窗体处理
- C#点击窗体最小化时,隐藏任务栏和显示托盘图标
- C#实现无标题栏窗体点击任务栏图标正常最小化或还原的解决方法
- swing 自定义最小化按钮后,实现点击任务栏图标,使窗体重新显示
- Delphi XE4 主窗体隐藏之后任务栏没有图标显示。
- c#无标题窗体点击任务栏图标正常最小化或还原
- WPF 程序点击任务栏图标显示隐藏最小化窗体
- Delphi产生任务栏图标【TNotifyIconData】
- delphi点击关闭按钮让窗体最小化
- JFrame实现系统托盘功能缩放在任务栏,窗体图标自定义
- C#Winform无边框窗体如何点击系统任务栏显示和隐藏窗体
- Delphi 实现任务栏多窗口图标显示
- QT窗体设置点击任务栏按钮最小化和还原事件
- 【框架-MFC】CDialog(CDialogEx) 自绘边框 点击任务栏软件图标可进行缩小与还原的解决方案