請教前輩們 : 有三個 Form Form1 , Form2 及 Form3 其中 Form2 是動態產生 Form1 及 Form3 各有一個按鈕 Form2 有一個按鈕及Edit Form1 => procedure TForm1.Button1Click(Sender: TObject); Var Form2 : TForm2; begin svr:=svr 1; //已設為 public 變數 Form2:=TForm2.Create(Self); Form2.Name:='INO' inttostr(svr); Form2.Show; end; Form2 => procedure TForm2.Button1Click(Sender: TObject); begin Form3.show; //單純的呼叫 Form3 而己 end; Form3 => procedure TForm3.Button1Click(Sender: TObject); begin //希望傳一個值到 Form2 的Edit.text 上 end; 如果只有產生一個 Form2 => Form2.text:='123';即可 但是我的問題是 Form2 有好幾個 ,我如何得知是那個 Form2 按了button 還有 Form3的button 按了後,可以正確傳回到 edit 上 Sorry , 正在學習階段,還請多多包含

可以在 Form3 裡放一個 public 變數為 whichone: TForm2;    

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form3.whichone := self;  // 將自己傳入 Form3 的 TForm2 變數中
  Form3.show; 
end;    procedure TForm3.Button1Click(Sender: TObject);
begin
  //希望傳一個值到 Form2 的Edit.text 上 
  whichone.Edit1.Text := 'xxx'; 
end;

引言: 可以在 Form3 裡放一個 public 變數為 whichone: TForm2;

procedure TForm2.Button1Click(Sender: TObject);
begin
  Form3.whichone := self;  // 將自己傳入 Form3 的 TForm2 變數中
  Form3.show; 
end;    procedure TForm3.Button1Click(Sender: TObject);
begin
  //希望傳一個值到 Form2 的Edit.text 上 
  whichone.Edit1.Text := 'xxx'; 
end;

謝謝,已解決......... 你的一小步,卻是我的一大步 感謝~~~~ ^_^