例如:
procedure TMainF.N16Click(Sender: TObject);
begin
FirstmodiF := TfirstmodiF.Create(self);
FirstmodiF.ShowModal ;
end;procedure TMainF.ToolButton1Click(Sender: TObject);
begin
FirstmodiF := TfirstmodiF.Create(self);
FirstmodiF.ShowModal ;
end;这里面有的前面加"T"是啥意思啊 ? self是什么意思
procedure TMainF.N16Click(Sender: TObject);
begin
FirstmodiF := TfirstmodiF.Create(self);
FirstmodiF.ShowModal ;
end;procedure TMainF.ToolButton1Click(Sender: TObject);
begin
FirstmodiF := TfirstmodiF.Create(self);
FirstmodiF.ShowModal ;
end;这里面有的前面加"T"是啥意思啊 ? self是什么意思
firstmodiF:这是一个类变量,也就是一个指针变量;
FirstmodiF := TfirstmodiF.Create(self);//---这句代码是创建了一个已定义类的实例,入口
//---地址传递给了变量firstmodiF;
SELF:在构造方法CREATE(OWNER:TOBJECT)中,参数意义:指出当前类实例的拥有者;
在这儿SELF是当前窗体类的引用指针;
self类似于C++里的this,表示对象本身。
在这里,表示不指出当前类实例的拥有者T表示这是一个类,firstmodiF是TfirstmodiF类的一个变量,FirstmodiF := TfirstmodiF.Create(nil)用来创建这个对象.