你把这个参数放到一个公共的单元里面,然后USES这个单元

解决方案 »

  1.   

    用TObject或Pointer, 用AS转化一下,同时防止误操作
      

  2.   

    预定义阿
    type  ttt= class;  TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        ComboBox1: TComboBox;
        CheckBox1: TCheckBox;
        Memo1: TMemo;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Memo1Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      private
        a: ttt;
        { Private declarations }
      public
        { Public declarations }
      end;  ttt=class(TStringList)
      end;