請問各位!    這類問題可能有人問題, 但我不知道應找那個關鍵字才是我要的, 所以只好 上來求援了!    有兩個form(form1,form2)同時開啟, form1-> normal, form2->stapontop form1有四組edit(1,2,3,4) form2有四個button(1,2,3,4), 各有其功能及一個計算後應回傳到form1的值    問題: 在 form1上游標可能停留在任一個edit?之上, 然後使用者會執行form2上的 某一個按鍵, 取得一個回傳值後, 把該值回填到剛才form1離開的那一個 edit之上同時回到form1原來的edit?.focus上, 有沒有較技巧性及精簡性的寫法來達成    我現在的土法練鋼式 在每一個 edit? 的 onexit 設定一個 public變數指定 editno=1,2,3,4 到form2時每一個button? 的 onclick上寫

case editno of
  1:begin
    form1.edit1.text:= ....;
    form1.edit1.setfocus;
   end;
2:...
3:...
4:... 

能不能更結構化的寫法或者一句就能解決, 謝謝!

更結構化的寫法 --> 沒有吧,這樣已經是最簡的寫法,你有辦法降下面兩句用一句代表嗎? 我想應該沒有 form 2 tell form 1: 1."edit1 的值 = xxx" 2."將 edit1 設 focus" 你可不要說 "加個*且*不就得了", 加個 *且* 字, 雖然是同一句話, 但仍是兩個命令 如果你要一句就能解決, 那倒是有個法子! 顧個程式設計師, 並對他說 "這個我下星期要" 這樣一句話就解決 電腦是一個命令才有一個動作的, 要一個命令許多動作的話, 也是別人先幫你寫成 marco 或 function, 所以囉, 只有對人才有一句話就解決的可能 "這個我下星期要"

你在Form2上buttonclick時

if form1.ActiveControl is TEdit then
  TEdit(form1.ActiveControl).Text:='test';

引言: 你在Form2上buttonclick時

if form1.ActiveControl is TEdit then
  TEdit(form1.ActiveControl).Text:='test';

感謝版主指點, 我一直對 T???()的這種用法很困惑, 測試的結果 如我預期!