1.拖一个TrayIcon控件
2.拖一个ApplicationEvents控件
3.拖一个PopupMenu控件
将TrayIcon的PopupMenu属性与PopupMenu控件关联
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
unit UnitMain; interface uses Winapi . Windows, Winapi . Messages, System . SysUtils, System . Variants, System . Classes, Vcl . Graphics, Vcl . Controls, Vcl . Forms, Vcl . Dialogs, Vcl . AppEvnts, Vcl . ExtCtrls, Vcl . Menus; type TForm6 = class (TForm) TrayIcon1: TTrayIcon; ApplicationEvents1: TApplicationEvents; PopupMenu1: TPopupMenu; Exit1: TMenuItem; procedure ApplicationEvents1Minimize(Sender: TObject); // 窗体最小化时,显示Icon图标 procedure TrayIcon1Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Exit1Click(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean ); // 关闭之前 procedure FormActivate(Sender: TObject); private { Private declarations } RealClose : Boolean ; // 关闭标志 是否是真正的关闭 public { Public declarations } end ; var Form6: TForm6; implementation {$R *.dfm} procedure TForm6 . FormActivate(Sender: TObject); begin if Tag= 0 then begin Tag:= 1 ; RealClose:= False ; end ; end ; procedure TForm6 . ApplicationEvents1Minimize(Sender: TObject); begin Hide(); // 隐藏窗体 Self . WindowState := TWindowState . wsMinimized; // 最小化 TrayIcon1 . Visible:= True ; // 显示图标 end ; procedure TForm6 . Exit1Click(Sender: TObject); // 菜单里的真正退出 begin RealClose := True ; Self . close(); end ; procedure TForm6 . FormClose(Sender: TObject; var Action: TCloseAction); begin TrayIcon1 . Visible:= False ; // 隐藏Icon TrayIcon1 . Free; // 释放ICON end ; procedure TForm6 . FormCloseQuery(Sender: TObject; var CanClose: Boolean ); begin CanClose:=RealClose; if ( not RealClose) then ApplicationEvents1Minimize( nil ); end ; procedure TForm6 . TrayIcon1Click(Sender: TObject); begin TrayIcon1 . Visible:= False ; Self . Show(); Self . WindowState := TWindowState . wsNormal; Application . BringToFront(); // 前靠 end ; end . |
分类: Delphi