T 按钮上的 Delphi 2010 图像褪色/闪烁

Question

当我设置按钮的 imageindex 和 images 属性（来自图像列表组件/png）时，启动程序并单击按钮，图像缓慢闪烁/淡入淡出。如何防止这种情况发生？问题出在哪里？

Answer 1

重温一个老话题……

在网上搜索解决方案后一无所获，我查看了TCustomButton代码。

碰巧，Windows 上的按钮控件内部有一个包含 6 个图像的图像列表，如下所示：

索引 0：普通图像
索引 1：热点图像（当鼠标移到按钮上时）
索引 2：按下的图像（当您按住鼠标按钮时）
索引 3：禁用图像
索引 4：选定的图像（当按钮具有焦点，但未按下或鼠标悬停在其上时）
索引 5：（我们需要但不能在 TButton 控件中指定的索引；我们将讨论它）

在Delphi的TButton控件中，可以为“Images”属性设置一个ImageList，并且可以设置“ImageIndex”、“HotImageIndex”、“PressedImageIndex”、“DisabledImageIndex”和“SelectedImageIndex”。

设置此属性后，TButton 控件将创建另一个图像列表，并将您在属性中指定的索引从“图像”属性中的图像列表复制到新创建的图像列表，按照我上面指定的顺序。

问题是，当您聚焦控件时，Win 7 Aero 具有淡入和淡出突出显示颜色（一个小动画）的效果，并且它还使用内部图像列表中的第 6 个图像淡入和淡出，但不可能向 TButton 控件提供“FADE”图像索引，因此我创建了一个适合自己的简单解决方案，但我必须在运行时调用。 （您可以从 TCustomButton 派生一个新类并创建一个新控件，例如您可以设置新的 SelectedFadeImageIndex，但我没有）。

我创建了这个程序：

    procedure MakeButtonImageStopBlinking(AButton: TCustomButton);
    var
      ButtonImageList: TButtonImageList;
      Icon: HICON;
    begin
      SendMessage(AButton.Handle, BCM_GETIMAGELIST, 0, LPARAM(@ButtonImageList));
      Icon := ImageList_GetIcon(ButtonImageList.himl, 0, ILD_NORMAL);
      ImageList_AddIcon(ButtonImageLIst.himl, Icon);
      DestroyIcon(Icon);
    end;

因此，当创建窗口时（在 OnCreate 事件上），我只需调用 MakeButtonImageStopBlinking 来提供每个以图像为参数的按钮，现在一切都可以工作了。

很抱歉重提这样一个古老的话题，但似乎没有任何答案（或者我无法正确搜索）。

编辑：将 DoubleBufferd 设置为 True 会起作用，但它会停止焦点按钮上的小动画。使用上面的解决方案，您可以将 DoubleBuffered 保留为 False，然后您将获得所有内容（来自 aero 的动画并且没有淡出图像）。

Answer 2

它似乎是 Tbutton 的 doubleBuffered 属性。当设置为 false 时，图像会闪烁，当设置为 true 时，图像会正常工作。在启用了 aero 的 Win 7 上会发生这种情况。