F fwlshine Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-22 #1 我有一个TForm,里面有个按纽,我想点击这个按纽,出来一个新的TForm,这个新的TForm上有个Edit,有个按纽,我在Edit里输入一些数据,点击按纽后,这个新的TForm消失,而刚输入的数据显示到原来的TForm上的一个Edit里去.
我有一个TForm,里面有个按纽,我想点击这个按纽,出来一个新的TForm,这个新的TForm上有个Edit,有个按纽,我在Edit里输入一些数据,点击按纽后,这个新的TForm消失,而刚输入的数据显示到原来的TForm上的一个Edit里去.
F fwlshine Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-22 #2 我点击按纽后,创建一个TForm,但这个值不能马上传会来显示
Z zywcd Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-22 #3 unit1 ---------------------- uses unit2 ; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; --------------- unit2 ----------------- uses unit1; procedure TForm2.Button1Click(Sender: TObject); begin form1.edit1.text:=form2.edit1.text; end;
unit1 ---------------------- uses unit2 ; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; --------------- unit2 ----------------- uses unit1; procedure TForm2.Button1Click(Sender: TObject); begin form1.edit1.text:=form2.edit1.text; end;
N n@p Unregistered / Unconfirmed GUEST, unregistred user! 2006-10-22 #4 unit1 ---------------------- uses unit2 ; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; --------------- unit2 ----------------- uses unit1; procedure TForm2.Button1Click(Sender: TObject); begin form1.edit1.text:=form2.edit1.text; close; end;
unit1 ---------------------- uses unit2 ; procedure TForm1.Button1Click(Sender: TObject); begin form2.show; end; --------------- unit2 ----------------- uses unit1; procedure TForm2.Button1Click(Sender: TObject); begin form1.edit1.text:=form2.edit1.text; close; end;
