Question

delphi 程序?

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}

------------------------------------------------------------------------------------------

上面有一处我不明白
先是有
TForm1 = class(TForm)
然后再有
var
Form1: TForm1;

那为什么BUTTON不这么定义?
按我想应该这样(如下):
TButton1 = class(TButton)

var
Button1: TButton1;

Answer 1

TForm是你可以自定义的，你可以往里面任意添加控件、函数，而button是系统定义好的，不允许更改，除非你自定义一个新button类继承自Tbutton，就需要你说的那样写。