zoukankan      html  css  js  c++  java
  • 如何把窗体关闭到系统托盘 回复 "三足乌" 的问题


    问题来源: http://www.cnblogs.com/del/archive/2009/05/15/1458017.html#1549351

    代码文件:

    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls, AppEvnts;
    
    type
      TForm1 = class(TForm)
        TrayIcon1: TTrayIcon;
        Button1: TButton;
        procedure TrayIcon1Click(Sender: TObject);
        procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
        procedure Button1Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    {关闭}
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Application.Terminate;
    end;
    
    {点击关闭按钮时让窗体最小化到系统托盘}
    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    begin
      Tag := Ord(WindowState);
      WindowState := wsMinimized;
      TrayIcon1.SetDefaultIcon;
      TrayIcon1.Visible := True;
      Hide;
      CanClose := False;
    end;
    
    {点击系统托盘中的图标恢复窗口}
    procedure TForm1.TrayIcon1Click(Sender: TObject);
    begin
      TrayIcon1.Visible := False;
      Show;
      WindowState := TWindowState(tag);
      SetForegroundWindow(Handle);
    end;
    
    end.
    

    窗体文件:

    object Form1: TForm1
      Left = 0
      Top = 0
      Caption = 'Form1'
      ClientHeight = 206
      ClientWidth = 339
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      OnCloseQuery = FormCloseQuery
      PixelsPerInch = 96
      TextHeight = 13
      object Button1: TButton
        Left = 232
        Top = 40
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 0
        OnClick = Button1Click
      end
      object TrayIcon1: TTrayIcon
        OnClick = TrayIcon1Click
        Left = 160
        Top = 104
      end
    end
    

  • 相关阅读:
    单例模式
    json 格式
    axios 获取不到数据错误
    sprint test 添加事务回滚机制
    springboot An incompatible version [1.1.32] of the APR based Apache Tomcat Native library is installed, while Tomcat requires version [1.2.14]
    spring boot 启动之后404
    废了
    tomcat 部署项目到服务器
    Druid 介绍及配置
    jq 全选
  • 原文地址:https://www.cnblogs.com/del/p/1497158.html
Copyright © 2011-2022 走看看