Jo, ich habe es schon angepasst, habe extra versucht ein schönes Diagramm zu zeichnen, die Basisklasse ist TIBasic.
Leider bekomme ich beim erstellen eine Fehlermeldung. Ich weiß nicht genau, aber AType ist keine Komponente sondern einfach nur eine Integer Konstante zu einer bestimmten Komponente.
Delphi-Quellcode:
type
TIBasicMeta = class of TIBasic;
procedure TComponentManager.NewControl;
var IBasic:TIBasic;
begin
IBasic := TIBasicMeta(AType).Create(FWorkPanel);
with IBasic do
begin
Name := AName;
Title := ATitle;
Hint := AHint;
//Value := AValue;
Left := ALeft;
Top := ATop;
Width := AWidth;
Height := AHeight;
end;
case AType of
IEdit: with TIEdit(IBasic) do
Value := AValue;
end;
FControlList.Add(IBasic);
end;