可以在Form1的public中定义
public
Formparam : string;
end; Form1:=TForm1.Create(Self);
form1.FormParam := Param;
Form1.ShowModal;
public
Formparam : string;
end; Form1:=TForm1.Create(Self);
form1.FormParam := Param;
Form1.ShowModal;
private
F_nParam: Integer ;
public
constructor create(AOwner: TComponent; nParam: Integer) ; override ;
end ;constructor TForm1.create(AOwner: TComponent; nParam: Integer) ;
begin
inherited create(AOwner) ;
F_nParam := nParam ;
end ;
使用方法:
var Form1:TForm1;Form1:= TForm1.Create(Application, nparam);
... override