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;

 

posted @ 2016-09-02 09:15  海蓝7  阅读(275)  评论(0)  编辑  收藏  举报