Delphi XE更改TTrayIcon系统任务栏图标（无模糊）

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi idhttpserver的使用方法

Delphi 复制文件到剪贴板

Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法

Delphi tidhttp 登录网页封装

idftp无法设置transfertype属性

Delphi 长文件路径转换短文件路径

Delphi 基础学习指定字符替换其他字符

Delphi 获取ie7 ie8 ie9 地址栏网址

Delphi 加载excel 导入数据库

Delphi 列举系统服务,停止启动所选服务

更多相关阅读请进入《Delphi》频道 >>