Delphi TButton组件样式

zyfwsgd6  于 2023-11-18  发布在  其他
关注(0)|答案(1)|浏览(172)

我只是想提前道歉,如果这个问题已经在另一个线程。我也是相对较新的 Delphi 。
今天我看到了一个 Delphi 程序的例子,它有TButton组件。按钮有一个脉动的蓝色效果,我认为这是Windows样式的一部分。绝对没有代码编写这样的按钮。我已经搜索了一个可能的设置,但没有结果。
注意:按钮在运行时产生效果,并且没有安装自定义组件。
如果有人能给予我一些关于如何在没有代码的情况下做到这一点的信息,也许只是一个设置就太好了。
我用的是 Delphi 7(2002)。

qacovj5a

qacovj5a1#

Delphi Firemonkey(FMX)组件框架有一个TColorAnimation,你可以为它设置诸如Duration、StartValue、StopValue、trigger等属性。FMX框架是在 Delphi XE 2中引入的。
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;

字符串
Flink 由TTimer控制,例如500 ms。
然而,这并不能满足您的要求 “绝对没有代码可以这样编写按钮。",但我不知道有任何方法可以实现这一点。

相关问题