狂狼,关于设置字体的问题.

Question

help,help,help!!!!!!!!!!
不要把我的帖子拿到灌水乐园去!!!!!!!!!

Answer 1

就是　dLabel[i].parent:=form1　之类的。

Answer 2

就是不能把字体赋于空的label啦.

Answer 3

TO:pathe(睡斛)　
不是那里的错,那里是改了的.

Answer 4

var
  arrLabel : array of TLabel;
    font1:Tfont;
    i : integer;
begin
font1:=Tfont.create;font1.size:=120;
font1.name:='??';SetLength (arrLabel, 100);
  For i := 0 to 99 Do
  Begin
    arrLabel[i] := TLabel.Create(nil);
    arrLabel[i].Parent := Form1;
    arrlabel[i].Caption:='';
    arrLabel[i].Font := font1;
    arrLabel[i].AutoSize := true;
end;
这是我的程序呀,没错!
end;

Answer 5

怪怪..........
我再试试
能说说arrLabel[i] := TLabel.Create(nil);
和arrLabel[i] := TLabel.Create(self);
的区别吗?

Answer 6

是啊,
cannot assign a nil to a tfont.
就是这句.

Answer 7

我靠，早就告诉你了（见第2条回复），你动态创建时，要设置parent属性的，记住了吗？

Answer 8

用下面一句试试：
  arrLabel[i].Font.Assign(font1)
另外Parent:=self;是必需的！