MouseEnter事件上的TBitBtn字体样式

Question

我有一个应用程序有一个TBitBtn作为＆＃34; BitBtn1＆＃34;。最初BitBtn1字体样式是＆＃34; []＆＃34;即正常。如果我的代码如下：

procedure TForm00001.BitBtn00003MouseEnter(Sender: TObject);
    begin
      BitBtn1.Font.Style :=fsBold;
    end;

它给出了一个错误。请帮助我，以便我可以将TBitBtn字体样式更改为Bold on＆＃34; MouseEnter Event＆＃34;。

Answer 1

字体样式是一个集合。正确的语法是

BitBtn1.Font.Style := [fsBold];

这是一个集合，您可以应用多种样式，例如

BitBtn1.Font.Style := [fsBold, fsItalic];