A
afey
Unregistered / Unconfirmed
GUEST, unregistred user!
就像是在普通form中,新建一个form
TForm1=class{TForm}
private
panel:TPanel;
end;
var
Form1:TForm1;
implemention
procedure SetName(Name:String);
begin
Form1.panel1.caption:=Name;
end;
新建一个Form就会自己实例化一个对象,如上面的Form1:TForm1;可以用Form1.panel
可是在ActiveForm中,并没有写出这样的实例化对象,即:新建一个ActiveForm
TActiveForm=class(TActiveFormX,IActiveForm)
private
panel:TPanel;
end;
implementation
procedure SetName(Name:String);
begin
( ).panel1.caption:=Name;
end;
在类TActiveForm的成员函数中可以直接用该窗体的属性和其中的控件,可是如果不是在它的成员函数中,就像上面的函数SetName中我怎么识别这个窗体,用它的panel.caption呢??
TForm1=class{TForm}
private
panel:TPanel;
end;
var
Form1:TForm1;
implemention
procedure SetName(Name:String);
begin
Form1.panel1.caption:=Name;
end;
新建一个Form就会自己实例化一个对象,如上面的Form1:TForm1;可以用Form1.panel
可是在ActiveForm中,并没有写出这样的实例化对象,即:新建一个ActiveForm
TActiveForm=class(TActiveFormX,IActiveForm)
private
panel:TPanel;
end;
implementation
procedure SetName(Name:String);
begin
( ).panel1.caption:=Name;
end;
在类TActiveForm的成员函数中可以直接用该窗体的属性和其中的控件,可是如果不是在它的成员函数中,就像上面的函数SetName中我怎么识别这个窗体,用它的panel.caption呢??