鸿 网 互 联 www.68idc.cn

Delphi XE更改TTrayIcon系统任务栏图标(无模糊)

来源:互联网 作者:佚名 时间:2021-12-14 17:56
procedureTForm1.Button4Click(Sender:TObject);beginTrayIcon1.IconIndex:=0;end;procedureTForm1.Button5Click(Sender:TObject);beginTrayIcon1.IconIndex:=1;end;procedureTForm1.Button4Click(Sender:TObject);beginTrayIcon1.Visible:=False;TrayIcon1.

procedure TForm1.Button4Click(Sender: TObject);begin  TrayIcon1.IconIndex := 0;end; procedure TForm1.Button5Click(Sender: TObject);begin  TrayIcon1.IconIndex := 1;end;procedure TForm1.Button4Click(Sender: TObject);begin  TrayIcon1.Visible := False;  TrayIcon1.Icon.LoadFromFile('icons\yellow.ico');  TrayIcon1.Visible := True;end; 但是,这似乎在图标上增加了模糊效果(不好)。为避免此问题,请使用以下方法:procedure TForm1.Button5Click(Sender: TObject);begin  TrayIcon1.Visible := False;  TrayIcon1.Icon.LoadFromFile('icons\red.ico');  TrayIcon1.Visible := True;end;这样,图标在系统任务栏中看起来大部分都是像素完美的。在Windows 7和Windows 10上也进行了测试。如果要从ICONS资源中加载图标:procedure TForm1.Button4Click(Sender: TObject);begin  TrayIcon1.Visible := False;  TrayIcon1.Icon.LoadFromResourceName(hInstance, 'ICON1');  TrayIcon1.Visible := True;end;

网友评论
<