能直接改我干吗问啊??
我再说清楚一些,一般程序里的form都是这样定义的:
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
这样就可以通过类似formname.font这样的方法来修改某项属性。
但是我的这些form都是动态的用create(self)生成的。
代码:
for i:=1 to count-1 do
begin
with TForm3.Create(self) do
name:='drawer'+IntToStr(i);
show;
end;
end;
没有申明form实例的
但是我试过了,可以成功生成。