TTrayIcon用法

TTrayIcon用法
 self.trycn1.Icon:=Application.Icon;
  Self.trycn1.Hint:=self.Caption;
  self.trycn1.Visible:=true;
  
  关闭时
  begin
  self.trycn1.Visible:=false;
  Application.Terminate;
end;

procedure TForm1.trycn1DblClick(Sender: TObject);
begin
  ShowWindow(Self.Handle,SW_RESTORE);
end;