delphi 7 OnBalloonHintClick事件TrayIcon1BalloonHintClick procedure TForm1.TrayIcon1BalloonHintClick(Sender: TObject); begin SetForegroundWindow(Application.Handle); end;