发件人： 电脑玩家 - 查看个人资料
日期： 2006年10月3日(星期二) 下午5时26分
电子邮件： "电脑玩家" <pcpla...@gmail.com>
尚未评分
评级：
显示选项
回复 | 答复作者 | 转发 | 打印 | 显示个别帖子 | 显示原始邮件 | 删除 | 报告滥用行为 | 查找此作者的帖子

In this article, Scott Water pointed out that you can instantiate an
object using generics.

For everyone out there who didn't know, you can already accomplish
this, back in Delphi 1! It's called class referencing. For those of you
C# people, you can find this in the Delphi Language Reference under
“Constructors and class references”. This appeared in the Delphi 5
help.

type TControlClass = class of TControl;
function CreateControl(ControlClass: TControlClass;
const ControlName: string; X, Y, W, H: Integer): TControl;
begin
Result := ControlClass.Create(MainForm);
with Result do
begin
Parent := MainForm;
Name := ControlName;
SetBounds(X, Y, W, H);
Visible := True;
end;
end;

CreateControl(TEdit, 'Edit1', 10, 10, 100, 20);