如何修改一个 form 的 onCreate 事件 ( 积分: 50 )

  • 主题发起人 主题发起人 qi_jianzhou
  • 开始时间 开始时间
Q

qi_jianzhou

Unregistered / Unconfirmed
GUEST, unregistred user!
我想给 form 的 onCreate 事件加一个参数,该怎么做呀?试了试,直接加还不行?请高手指点一下
 
我想给 form 的 onCreate 事件加一个参数,该怎么做呀?试了试,直接加还不行?请高手指点一下
 
//看来只能这样做了
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
private
FStr: String;
public
constructor Create(AOwner: TComponent; selfType: String); overload;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

constructor TForm1.Create(AOwner: TComponent; selfType: String);
begin
inherited Create(AOwner);
FStr := selfType;
end;

end.
 
后退
顶部