帮忙:怎么识别ActiveForm自己创建的窗体(50分)

  • 主题发起人 主题发起人 afey
  • 开始时间 开始时间
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呢??
 
后退
顶部