可变类创建

Question

我想利用可变类类型，以尽量减少此代码，它是从属性和事件：

if ctype='T' then 
begin 
    C:= TTimeEdit.Create(self); 
    (c as TTimeEdit).OnMouseUp:= Panel2MouseUp; 
    (c as TTimeEdit).OnMouseDown:= Panel2MouseDown; 
    (c as TTimeEdit).OnMouseMove:= Panel2MouseMove; 
    (c as TTimeEdit).PopupMenu:= PopupMenu1; 
end; 

if ctype='S' then 
begin 
    C:= TTabSheet.Create(self); 
    (c as TTabSheet).OnMouseUp:= Panel2MouseUp; 
    (c as TTabSheet).OnMouseDown:= Panel2MouseDown; 
    (c as TTabSheet).OnMouseMove:= Panel2MouseMove; 
    (c as TTabSheet).PopupMenu:= PopupMenu1; 
end; 

看起来像这样：

VAR VARCLS:TCLASS; 
BEGIN 
    if ctype='S' then 
    VARCLS:=TTabSheet; 
    if ctype='T' then 
    VARCLS:=TTimeEdit; 
    C:= VARCLS.Create(self); 
    (c as VARCLS).OnMouseUp:= Panel2MouseUp; 
    (c as VARCLS).OnMouseDown:= Panel2MouseDown; 
    (c as VARCLS).OnMouseMove:= Panel2MouseMove; 
    (c as VARCLS).PopupMenu:= PopupMenu1; 
end; 

确保代码要长得多比这个，但我用了一个样本！

Answer 1

有两种方法可以做到这一点：

如果类有一个共同的祖先（很可能为VCL或FMX类），那么你可以只使用一个class of TAncestor并创建该类的一个特定实例。

参见：http://docwiki.embarcadero.com/RADStudio/Seattle/en/Class_References#Constructors_and_Class_References

假设你正在使用VCL，它几乎是用FMX 有一个警告的TControl事件受到保护一样，但我们可以用一个中介类要解决这个问题。

type 
    TMyClass = class of TControl; 

//interposer class, makes events public; 

TPublicControl = class(TControl) 
public 
    property OnMouseUp;  //a 'naked' property redeclares the existing 
    property OnMouseDown; //events and properties as public 
    property OnMouseMove; 
    property PopupMenu; 
end; 

function CreateThing(Owner: TControl; MyType: TMyClass): TControl; 
begin 
    Result:= MyType.Create(Owner); 
    TPublicControl(Result).OnMouseUp:= Panel2MouseUp; 
    .... 
end; 

该例程不必知道类型，仍然返回一个特定的创建实例。

你调用这个例程，像这样：

var 
    MyEdit: TEdit; 
begin 
    MyEdit:= TEdit(CreateThing(Panel, TEdit)); 

另一种方法是使用RTTI，但我不会推荐，除非你使用的是没有一个共同的祖先对象。
如果您确实如此，请告诉我，我会扩大答案。