不要用系统的对话框,自己建一个窗体.
在窗体中写一个PUBLIC的函数.
如:
....
public
abc(t:tedit{此变量类型为控件的类名如Tbutton等等}):integer;
....
abc(t:tedit{此变量类型为控件的类名如Tbutton等等}):integer;
begin
self.show;
t.text:='abc';
end;
....
调用时
....
form2:=TForm2.create(application);
xxx:=form2.abc(edit1);
....
在窗体中写一个PUBLIC的函数.
如:
....
public
abc(t:tedit{此变量类型为控件的类名如Tbutton等等}):integer;
....
abc(t:tedit{此变量类型为控件的类名如Tbutton等等}):integer;
begin
self.show;
t.text:='abc';
end;
....
调用时
....
form2:=TForm2.create(application);
xxx:=form2.abc(edit1);
....
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货