MouseEnter事件上的TBitBtn字体样式

Question

我有一个TBitBtn为“BitBtn1”的应用程序。最初BitBtn1字体样式是“[]”，即正常。如果我的代码如下：

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

它给出了一个错误。请帮助我，以便我可以在“MouseEnter事件”上将TBitBtn字体样式更改为粗体。

Answer 1

字体样式是一组。正确的语法是

BitBtn1.Font.Style := [fsBold]; 

这是一组让你可以应用多种样式，例如

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