delphi TrayIcon1 托盘气泡提示

 
TrayIcon1.Animate:=true;
TrayIcon1.BalloonFlags = bfInfo;
TrayIcon1.Hint:=form1.Caption;
TrayIcon1.BalloonTitle:='提示';
TrayIcon1.BalloonHint:='请注意后电脑即将进入锁定状态.';
TrayIcon1.BalloonTimeout:=1000;
TrayIcon1.ShowBalloonHint;