Programmcode geschickter schreiben

[geskill]

Hmm, es wird nur die Basisklasse erstellt, so war das nicht gewollt :(

Delphi-Quellcode:

procedure TComponentManager.NewControl(AClass: TIBasicMeta; {...});
var IBasic:TIBasic;
begin
  IBasic := AClass.Create(FWorkPanel); // TIBasicMeta(AClass).Create
  with IBasic do
  begin
    Name := AName;
    Title := ATitle;
    Hint := AHint;
    //Value := AValue;
    Left := ALeft;
    Top := ATop;
    Width := AWidth;
    Height := AHeight;
  end;

  if AClass.ClassName = TIEdit.ClassName then 
    TIEdit(AClass).Value := AValue; // <-- hier knallt's, da TIBasic erstellt wird und nicht TIEdit

  FControlList.Add(IBasic);
end;