Delphi TButton 组件样式

Question

如果这个问题已经在另一个线程中，我只想提前道歉。我对 Delphi 也比较陌生。

今天我看到了一个示例 Delphi 程序，它上面有 TButton 组件。这些按钮具有脉动的蓝色效果，我认为这是 Windows 样式的一部分。绝对没有编写代码来以这种方式制作按钮。我已经搜索了一个可能的设置，但无济于事。

注意：按钮在运行时产生效果，并且没有安装自定义组件。

如果有人能给我一些关于如何在没有代码的情况下做到这一点的信息，也许只是一个设置会很棒。

我正在使用 Delphi 7 (2002)。

Answer 1

Delphi Firemonkey (FMX) 组件框架有一个TColorAnimation，您可以为其设置 Duration、StartValue、StopValue、触发器等属性。FMX 框架是在 Delphi XE2 中引入的。

Blinking button demo

---

既然您已经澄清您使用的是 Delphi 7（请记住以后注明版本），这里有一个适用于 Delphi 7 的替代方案（FMX 与 Delphi 7 不兼容）

var
  b: boolean;

procedure TForm9.Timer1Timer(Sender: TObject);
begin
  b := not b;
  if b then
    Button1.Perform(BM_SETSTATE, 0, 0)
  else
    Button1.Perform(BM_SETSTATE, 1, 0);
end;

闪烁由 TTimer 控制，例如 500 毫秒。

但是，这并不能满足您的要求“绝对没有编写这样的按钮。”，但我不知道有什么方法可以实现。