Question

如果这个问题已经出现在另一个帖子中，我只想提前道歉。我也是德尔福的新手。

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

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

如果有人可以在没有代码的情况下向我提供有关如何执行此操作的一些信息，那么设置可能会很棒。

我正在使用Delphi 7（2002）。

Answer 1

Delphi Firemonkey（FMX）组件框架有一个TColorAnimation，您可以为其设置Duration，StartValue，StopValue，trigger等属性.FDX框架是在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毫秒。

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

Delphi TButton组件造型

1 个答案: