一个简单的Windows窗体功能,该如何处理

一个简单的Windows窗体功能
1：当程序最小化的时候，最小到托盘。任务栏中没有。
2：点击最小托盘时，又能够使程序最大化。

谢谢大家

------解决方案--------------------

探讨
百度 delphi 最小化托盘

当然第三方的raize组件中有一个控件，放上界面上，自动实现该功能

------解决方案--------------------
raize-->TrayIcon.
------解决方案--------------------

Delphi(Pascal) code

begin
    if Pos('缩为小图标',self.mnuIcon.Caption)>0 then
    begin
      with NT do begin
        cbSize:=Sizeof(NT);
        // nid变量的字节数
        Wnd:=Handle;
        // 主窗口句柄
        UID:=0;
        // 内部标识，可设为任意数
        uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
        uCallBackMessage:=MY_MESSAGE;
        hIcon:=Icon.Handle;
        // 要加入的图标句柄，可任意指定
        szTip:='Delphi'#0;
        // 提示字符串
        hIcon := Application.Icon.Handle;
      end;
      Application.Minimize;
      ShowWindow(Application.Handle,SW_HIDE);
      Shell_NotifyIcon(NIM_ADD,@NT);
      self.mnuIcon.Caption:='正常显示';
    end
    else
    begin
      Shell_NotifyIcon(NIM_DELETE,@NT);
      ShowWindow(Application.Handle,SW_SHOW);
      Application.Restore;
      self.mnuIcon.Caption:='缩为小图标';
    end;
end;

一个简单的Windows窗体功能,该如何处理

相关推荐