part_4.txt

来自「托盘气泡的提示。。。 本人没有试过,网友搜的」· 文本 代码 · 共 14 行

procedure   TForm2.Button1Click(Sender:   TObject); 
var   tray:TCustomTrayIcon   ; 
begin 
            tray   :=TCustomTrayIcon.Create(nil); 
            Tray.BalloonTitle:=   '程序错误   '; 
            //Tray.BalloonHint:=TimeToStr(SongMon.StatusTime)+   ':传信程序运行错误！   '; 
            tray.BalloonHint   :='wcs'; 
            Tray.BalloonTimeout:=3000; 
            Tray.BalloonFlags:=bfError; 
            tray.SetDefaultIcon   ; 
            tray.Visible   :=True   ; 
            //tray.Icon.LoadFromFile(ExtractFilePath   (Application.ExeName   )+'file.ico'); 
            Tray.ShowBalloonHint; 
end;