芙 芙蓉弟弟 Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-11 #1 单元1有个函数需要传窗体1的控件，而在单元2的函数里就需要使用单元1的那个函数，这时单元2需要怎么做？请高手指点下 ，不清楚的加我QQ 帮我解决下 感激，谢谢
B bsense Unregistered / Unconfirmed GUEST, unregistred user! 2008-08-11 #3 unit1 去掉form1:tform1;这行 加一个public 过程/函数 procedure showthis(v:string);传递参数 begin edit1.text := v; self.show; //self.showmodal; end; form2 里面 use unit1; var f:tform1; begin f:= tform1.create(nil); f.showthis("asdfasdf");//参数给 end;
unit1 去掉form1:tform1;这行 加一个public 过程/函数 procedure showthis(v:string);传递参数 begin edit1.text := v; self.show; //self.showmodal; end; form2 里面 use unit1; var f:tform1; begin f:= tform1.create(nil); f.showthis("asdfasdf");//参数给 end;
