引言: Procedure TfrmTAC_3A1.fnTAC_3A1(_frmName:String;_CAP:String; _Grp:String); begin Grp := _Grp; frmName := _frmName; Application.Createform(TfrmTAC_3A1, frmTAC_3A1); frmTAC_3A1.Caption := _CAP; frmTAC_3A1.Show; end; 以上是小弟的一個FUNCTION,當第一次執行時傳入的GRP=1,並開啟frmTAC_3A1,若此時,再執行此FUNCTION開啟另一個frmTAC_3A1，並傳入GRP=2，若此時將視窗切換回第一次開啟的視窗，第一個視窗的GRP卻也變成2，部之該如何修改程式，讓GRP的值不會因為開啟視窗的先後次序而改變了GRP原有的值呢？？ ======================== 我是DELPHI5的初學者

Procedure TfrmTAC_3A1.fnTAC_3A1(_frmName:String;_CAP:String; _Grp:String);
begin    //mark 掉  Grp := _Grp;
  frmName := _frmName;
  Application.Createform(TfrmTAC_3A1, frmTAC_3A1);
  frmTAC_3A1.Caption := _CAP;
  frmTAC_3A1.Grp := _Grp; //移到這邊
  frmTAC_3A1.Show;
end;

引言: 多謝大哥，但是小弟將程式修改後問題依然存在喔！ Procedure TfrmTAC_3A1.fnTAC_3A1(_frmName:String;_CAP:String; _Grp:String); begin Application.Createform(TfrmTAC_3A1, frmTAC_3A1); frmTAC_3A1.Caption := _CAP; frmTAC_3A1.Grp := _Grp; frmTAC_3A1.frmName := _frmName; frmTAC_3A1.Show; end; frmTAC_3A1.Grp := _Grp; frmTAC_3A1.frmName := _frmName; 以上出現 Undeclared identifier 的錯誤 在Form的OnActive事件中下currActiveForm := self; 該如何下呢？？小弟直接在OnActive事件上加上這一句一樣出現錯誤！！ ======================== 我是DELPHI5的初學者

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;    type
  TfrmTAC_3A1 = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Procedure fnTAC_3A1(_frmName:String;_CAP:String; _Grp:String);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Grp : String;
    frmName: string;
  end;    var
  frmTAC_3A1: TfrmTAC_3A1;    implementation    {$R *.dfm}    Procedure TfrmTAC_3A1.fnTAC_3A1(_frmName:String;_CAP:String; _Grp:String);
var
newForm : TfrmTAC_3A1;
begin
newForm := TfrmTAC_3A1.Create(self);
newForm.Grp := _Grp;
newForm.frmName := _frmName;
newForm.Caption := _CAP;
newForm.Show;
end;    procedure TfrmTAC_3A1.BitBtn1Click(Sender: TObject);
begin
self.fnTAC_3A1('aaa','aaa','aaa');
end;    procedure TfrmTAC_3A1.BitBtn2Click(Sender: TObject);
begin
self.fnTAC_3A1('bbb','bbb','bbb');
end;    end.     

引言: 多謝大哥,原來是小弟宣告參數的地方錯了！但是又有一個問題 newForm := TfrmTAC_3A1.Create(self); newForm.Grp := _Grp; newForm.frmName := _frmName; 利用這個方法,在newForm := TfrmTAC_3A1.Create(self);就已經觸發了onCreate的事件,但是在該是件需要使用到Grp和frmName這兩個參數,會造成程式錯誤,不知該如何於onCreate的事件前就先將Grp和frmName這兩個參數賦予值呢？？ ======================== 我是DELPHI5的初學者