如何在程序中动态设定label的字体？

Question

用程序设定比如黑体,宋体之类的字体应该如何设定?

Answer 1

label1.Font.Name:= '宋体';
   label1.Font.Size:= 24;
   label1.Font.Style:= [fsBold];

Answer 2

如何把style的设定记录到数据库?

Answer 3

label1.Font.Name
label1.Font.Color
label1.Font.Size
label1.Font.Style
看看这几个属性

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  begin
  label1.Font.Size:=label1.Font.Size+1;
  end;
end;

Answer 5

wwx213() 大哥这个config文件该怎么做?可以给点例程吗？

Answer 6

主要是font.style的tfontstyles怎么转成string这个问题很麻烦。

Answer 7

这个好办，你写一个TTextAttributes类型的数组，只把其中一个得第几个数记下来就行了，加载的时候将
Arr[i]中的值取出来付进去不就行了
Arr:= array[1..4]of TTextAttributes = (fsBold, fsItalic, fsUnderline, fsStrikeOut);

Answer 8

//鼠标进入离开Label颜色交换
procedure TFrmquery.Label_AdvancedMouseEnter(Sender: TObject);
begin
       Label_Advanced.FontColor := clRed;
end;
procedure TFrmquery.Label_AdvancedMouseLeave(Sender: TObject);
begin        
       Label_Advanced.FontColor := clBlue;
end;

Answer 9

看看操作Ini文件的资料，一般的Delphi书上都有的。

Answer 10

其实看帮助就已经够了，知道用ini，那么这个问题就等于解决了，解决思路是最重要的...

Answer 11

用ini可以记录font.style的tfontstyles吗?