AlphaControls控件TsFontComboBox的使用

 

    使用AlphaControls控件，尽可能地使用该组件，提供的控件。我们日常使用的TFontComboBox控件与TsFontComboBox控件，使用上，区别很大。 

    一、Font属性
    通常TFontComboBox.FontName是指定的字体名。
    TsFontComboBox中的字体，读取操作系统中的字体列表，构成一个Strings列表，我们在使用时，要通过列举的方式设置或获取字体名称。

    二、字体列表
    Items       系统中字体列表。 
    Items.count 系统中，字体的数量。

    三、获取字体
    ItemIndex   通过鼠标点击时，选择列表的序列号。 
    sFontComboBox1.Items[sFontComboBox1.ItemIndex]  获取指定的字体名。

    四、初始化
    对于窗口中的TsFontComboBox需要初始化，指定一个默认的字体，代码如下：
 

procedure TCertificate_TB_Frm.OnShowClick(Sender: TObject);
var i,k:integer;
    FontName:String;
begin
  FontName:='黑体';
  For i:=0 to sFontComboBox1.Items.count-1 do
    if sFontComboBox1.Items[i]=FontName then K:=i;
  sFontComboBox1.ItemIndex:=k;
end;