Delphi TButton 组件样式

Question

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

今天我看到了一个示例 Delphi 程序，上面有

TButton

组件。这些按钮具有脉动的蓝色效果，我认为这是 Windows 样式的一部分。绝对没有编写任何代码来以这种方式制作按钮。我已经搜索了可能的设置但无济于事。

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

如果有人可以给我一些关于如何在没有代码的情况下执行此操作的信息，也许只是一个设置就很好了。

我正在使用 Delphi 7 (2002)。

Answer 1

Delphi Firemonkey (FMX) 组件框架有一个

TColorAnimation

，您可以为其设置 Duration、StartValue、StopValue、trigger 等属性。FMX 框架是在 Delphi XE2 中引入的。

闪烁按钮演示

---

既然您已经澄清您使用的是 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 ms。

但是，这并不能满足您的要求“绝对没有编写代码来以这种方式制作按钮。”，但我不知道有任何方法可以实现这一点。