請問各位。 假如目前有兩個表單，Form1和Form2。 Form1有button1 / button2 / Edit1 /Edit2 Form2有DBGrid1 / button1 當Form1中button1內連結到Form2的指標所指某列的代碼帶回Edit1 如果Form1的button2同樣也要作到這樣功能該如何去帶參數。 Form1的button1程式如下： FBCSM02.ShowModal; Form2的button1程式如下： Form1.Edit1.Text:=DBGrid1.Columns.Grid.Fields[0].AsString; self.Close; 麻煩大家。謝謝。

t0288542您好：方法有很多，可参考下面做法： 先在Form1中定义一个全局变量（TheTag）,然后在

var
  Form1: TForm1;
  TheTag:integer;    Form1的button1程式如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
  TheTag:=1;
  FBCSM02.ShowModal;
end;
Form1的button2程式如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
  TheTag:=2;
  FBCSM02.ShowModal;
end;
Form2的button1程式如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
  if TheTag=1 then
    Form1.Edit1.Text:=DBGrid1.Columns.Grid.Fields[0].AsString;
  if TheTag=2 then
    Form1.Edit2.Text:=DBGrid1.Columns.Grid.Fields[0].AsString;      self.Close;
end;

不知是不是您所要的 <> ============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

謝謝您。已解決。 麻煩您。