traymain.pas

实现程序在系统栏显示图标

unit TrayMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, TrayIcon, ImgList, StdCtrls, ActnList;

type
  TForm1 = class(TForm)
    TrayIcon1: TTrayIcon;
    iglIcons: TImageList;
    PopupMenu1: TPopupMenu;
    mnuShowHide: TMenuItem;
    N2: TMenuItem;
    mnuExit: TMenuItem;
    cbxHide: TCheckBox;
    N1: TMenuItem;
    Hide1: TMenuItem;
    ActionList1: TActionList;
    actHide: TAction;
    actAnimate: TAction;
    cbxAnimate: TCheckBox;
    Animate1: TMenuItem;
    actVisible: TAction;
    cbxVisible: TCheckBox;
    Visible1: TMenuItem;
    edtTip: TEdit;
    Label1: TLabel;
    procedure mnuShowHideClick(Sender: TObject);
    procedure mnuExitClick(Sender: TObject);
    procedure actHideExecute(Sender: TObject);
    procedure actAnimateExecute(Sender: TObject);
    procedure actVisibleExecute(Sender: TObject);
    procedure edtTipKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.mnuShowHideClick(Sender: TObject);
begin
  if IsIconic(Application.Handle) then
    TrayIcon1.Restore
  else
    TrayIcon1.Minimize;
end;

procedure TForm1.mnuExitClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.actHideExecute(Sender: TObject);
begin
  actHide.Checked := not actHide.Checked;
  TrayIcon1.Hide  := actHide.Checked;
end;

procedure TForm1.actAnimateExecute(Sender: TObject);
begin
  actAnimate.Checked := not actAnimate.Checked;
  TrayIcon1.Animate  := actAnimate.Checked;
end;

procedure TForm1.actVisibleExecute(Sender: TObject);
begin
  actVisible.Checked := not actVisible.Checked;
  TrayIcon1.Visible  := actVisible.Checked;  
end;

procedure TForm1.edtTipKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Char(VK_RETURN) then
    TrayIcon1.Hint := edtTip.Text;
end;

end.