TTrayIcon用法

最新推荐文章于 2024-11-26 11:18:16 发布

转载最新推荐文章于 2024-11-26 11:18:16 发布 · 642 阅读

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;