Delphi minimized program to taskbar tray Add right button popmenu

In the middle layer, the middle layer often does not need to click Close when closed, but minimized to the tray. Therefore, the Close button function is deliberately hidden.

1) Hide Exit Function with Popmenu exit menu instead

1. Add Popmenu Exit menu, bind to form

2. Increase the variable control whether really exit B_isclose;//true exit False do not exit

[Delphi]View PlainCopy

1. B_isclose:boolean; //true exit False do not exit

3. Initialize B_isclose set to False in Formcreate or Formshow events

[Delphi]View PlainCopy

1. Procedure TForm1.  Formshow (Sender:tobject);
2. Begin
3. B_isclose:=false;
4. End

4.PopMenu Increase Exit Event

[Delphi]View PlainCopy

1. Procedure TForm1Pmexitclick (sender:tobject);
2. Begin
3. B_isclose: = true; Set to True Exit
4. Close; //Call system Exit Event response function Formclose
5. End

5. The exit is based on whether the actual exit to do the processing

[Delphi]View PlainCopy

2. Procedure TForm1. Formclose (Sender:tobject;  var action:tcloseaction);
4. Begin
6. if B_isclose Then
8. begin
10. Action: = Cafree; //Real exit
12. End
14. Else
16. begin
18. Action: = Canone; //Modify event type does not exit
20. end;
22. End

2) minimized to pallet

Modify the Formclose event to add a statement:

[Delphi]View PlainCopy

1. Application. Minimize; //Minimized applications

As follows:

[Delphi]View PlainCopy

2. Procedure TForm1. Formclose (Sender:tobject;  var action:tcloseaction);
4. Begin
6. if B_isclose Then
8. begin
10. Action: = Cafree; //Real exit
12. End
14. Else
16. begin
18. Action: = Canone; //Modify event type does not exit
20. Application. Minimize; //Minimized applications
22. end;
24. End

3) Add right-click popup menu in Tray

1. Install drag and drop add a third-party control Trztrayicon to the interface, named:

[Delphi]View PlainCopy

1. Rztrayicon1:trztrayicon;

2. Modify the Formclose event to add a statement:

[Delphi]View PlainCopy

1. RzTrayIcon1. PopupMenu: = Pmfrmmenu; //Bind right bottom corner popmenu

The end result is as follows:

[Delphi]View PlainCopy

2. Procedure TForm1. Formclose (Sender:tobject;  var action:tcloseaction);
4. Begin
6. if B_isclose Then
8. begin
10. Action: = Cafree; //Real exit
12. End
14. Else
16. begin
18. Action: = Canone; //Modify event type does not exit
20. Application. Minimize; //Minimized applications
22. RzTrayIcon1. PopupMenu: = Pmfrmmenu; //Bind right bottom corner popmenu
24. end;
26. End

Delphi minimized program to taskbar tray Add right button popmenu