如题!要怎么写,才让TZikkou = class(TComponent);这个定义的新类才起作用?小弟菜鸟,请大家帮帮我!感谢中!type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure Execute1;
procedure Execute2(Sender: TObject);
type
TZikkou = class(TComponent)
end;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure Execute1;
procedure Execute2(Sender: TObject);
type
TZikkou = class(TComponent)
end;
end;
您的问题是“如何使用一个自定义类?”
创建此类的对象,类就“起作用了”,不知道这样理解对不对var
Zikkou: TZikkou;
zikkou := TZikkou.Create;
TZikkou = class(TComponent)
SomeParam: integer;
end; TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure Execute1;
procedure Execute2(Sender: TObject);
Zikkou1: TZikkou; // <-------------------
end;
//需要放在外边,里边的话你使用D2010试试看!
TZikkou = class(TComponent)
end; TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
procedure Execute1;
procedure Execute2(Sender: TObject);
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
type
TZikkou = class(TComponent)
end;var
Form1: TForm1;implementation{$R *.dfm}end.