問一個刁鑽的問題，說不清，請進來看看!

Question

我有一個A窗體 在其中有創建X窗體的代碼 
 if (key=#13) then
         application.CreateForm(TFrm_pn, Frm_pn);
         Frm_pn.RPL.Caption:=trim(EdtPart_no.Text);
         Frm_pn.Show;
因為這個窗體X是通用的，調用它主要是靠X窗體返回一個字符串，我要把它返回 的字符串，傳給調用它的窗體的編輯框的TEXT屬性，我該如何做呀，呵呵，問題有點怪，請大家幫忙，謝謝!
        

Answer 1

在TFrm_pn定义一个TEdit类型的公共变量（如edt）,
application.CreateForm(TFrm_pn, Frm_pn);
         Frm_pn.RPL.Caption:=trim(EdtPart_no.Text);
         Frm_pn.edt:=EdtPare_No;
         Frm_pn.Show;

Answer 2

Frm_pn.ShowModal;
Edit1.text := Frm_pn.變量名;
Frm_pn.Close;

Answer 3

if Frm_pn.ShowModal=mrOK then
  begin
    edit1.text:= Frm_pn.變量名
  end;

Answer 4

这个问题好象不是很调转吧。
aiirii(ari-爱的眼睛)说的很明白了。

Answer 5

输入字符串的话，用inputbox函数不久得了
function InputBox('标题', '说明', '默认值'): string;