如何判断Delphi中TBitBtn加载的Glyph？实现表格排序切换

原逻辑的合理性分析 #

你的核心思路（点击按钮切换排序方向并同步箭头图标）是合理的，但直接通过判断Glyph的图片文件来控制逻辑的方式不可行——Delphi的TBitBtn.Glyph是TBitmap类型，无法直接与文件名字符串比较，而且这种依赖图片文件的方式耦合性极高，一旦图片路径、文件名变更，逻辑就会失效。

可行解决方案 #

1. 用自定义变量记录排序状态 #

定义一个布尔变量存储当前排序方向，点击按钮时切换状态并同步图标和排序逻辑，这是最直观的方案：

// 在窗体类的private部分定义变量
private
  FIsAscending: Boolean; // True=升序（向上箭头），False=降序（向下箭头）

// 初始化（比如在FormCreate中）
procedure TForm1.FormCreate(Sender: TObject);
begin
  FIsAscending := True;
  btbSort.Glyph.LoadFromFile('Up.bmp');
end;

// 按钮点击事件
procedure TForm1.btbSortClick(Sender: TObject);
begin
  if FIsAscending then
  begin
    // 执行降序排序逻辑
    SortTableDescending;
    // 切换为向下箭头
    btbSort.Glyph.LoadFromFile('Down.bmp');
  end
  else
  begin
    // 执行升序排序逻辑
    SortTableAscending;
    // 切换为向上箭头
    btbSort.Glyph.LoadFromFile('Up.bmp');
  end;
  // 翻转状态
  FIsAscending := not FIsAscending;
end;

2. 利用控件自带的Tag属性存储状态 #

如果不想额外定义变量，可以用TBitBtn自带的Tag属性存储状态（比如0代表升序，1代表降序）：

// 初始化
procedure TForm1.FormCreate(Sender: TObject);
begin
  btbSort.Tag := 0; // 0=升序
  btbSort.Glyph.LoadFromFile('Up.bmp');
end;

// 按钮点击事件
procedure TForm1.btbSortClick(Sender: TObject);
begin
  if btbSort.Tag = 0 then
  begin
    SortTableDescending;
    btbSort.Glyph.LoadFromFile('Down.bmp');
    btbSort.Tag := 1;
  end
  else
  begin
    SortTableAscending;
    btbSort.Glyph.LoadFromFile('Up.bmp');
    btbSort.Tag := 0;
  end;
end;

3. 用TImageList管理图标（更规范的做法） #

将向上、向下箭头图标添加到TImageList组件中，通过ImageIndex属性切换图标并判断状态，避免直接操作图片文件：

// 假设已在窗体上添加TImageList组件ImageList1，并导入了索引0=向上箭头、索引1=向下箭头
procedure TForm1.FormCreate(Sender: TObject);
begin
  btbSort.ImageList := ImageList1;
  btbSort.ImageIndex := 0; // 初始升序
end;

// 按钮点击事件
procedure TForm1.btbSortClick(Sender: TObject);
begin
  if btbSort.ImageIndex = 0 then
  begin
    SortTableDescending;
    btbSort.ImageIndex := 1;
  end
  else
  begin
    SortTableAscending;
    btbSort.ImageIndex := 0;
  end;
end;

内容的提问来源于stack exchange，提问作者Christiaan de Wet