文 文鹰 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-21 #1 我有一个问题想问一你，在DELPHI中如为传递窗体变量名呢？ 如： procedure popForm(var s:TForm) begin .... . end
L lichaogang Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-21 #2 应该不用这样吧，你写这代码有什么用？ 如果想在一个窗体中弹出另一个窗体可以这样写： procedure popForm; var MyForm:TForm2; begin MyForm:=TForm2.Create(Self); .... . end
应该不用这样吧，你写这代码有什么用？ 如果想在一个窗体中弹出另一个窗体可以这样写： procedure popForm; var MyForm:TForm2; begin MyForm:=TForm2.Create(Self); .... . end
C Calvin75 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-21 #3 有一个窗体定义如下： TpopForm = class (TForm) ... popForm函数可以这样： procedure popForm(var AForm: TpopForm); begin ... end; 调用如下： var AForm: TpopForm; begin AForm := TpopForm.Create(Self); popForm(AForm); end;
有一个窗体定义如下： TpopForm = class (TForm) ... popForm函数可以这样： procedure popForm(var AForm: TpopForm); begin ... end; 调用如下： var AForm: TpopForm; begin AForm := TpopForm.Create(Self); popForm(AForm); end;
文 文鹰 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-22 #4 我是想传入一个窗体变量到函数中，然后取出它的高度和宽度。。。，这些窗体都已存在
郭 郭玉梁 Unregistered / Unconfirmed GUEST, unregistred user! 2001-08-22 #5 procedure EnableComponents(TempForm: TObject); x := TForm(TempForm).Height
