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;