Hallo,
ich habe eine Prozedur, die mir verschiedene Controls erstellt, die Parameter wie Name, Titel, Position werden für jede neue Komponente gleich übergeben. Also den Block mit (Name := AName; ...) hätte ich dann sehr oft. Die Komponenten basieren aber alle auf einer Basisklasse, welche die meisten oben aufgelisteten Parameter schon enthält.
Code:
TIBasic
|-TIEdit
|-TIComboBox
|-TIComboBoxList
Nun stellt sich mir die Frage, wie macht man sowas am besten, vorallem muss man beachten das ich die Controls noch in eine Liste (TList) einfügen möchte um sie später wieder freigeben zu können, bzw. um Benutzereingaben zu erhalten. Da müsste man oben dann noch (var NewIEdit:TIEdit ...) einbauen.
Dies ist mein aktueller Ansatz:
Delphi-Quellcode:
TIComponent = (IEdit,IComboBox,IComboBoxList, ...)
procedure TComponentManager.NewControl(AType:TIComponent;
AName,ATitle,AValue,AHint,AList:String;
ALeft,ATop,AWidth,AHeight:Integer);
begin
case AType of
IEdit: with TIEdit.Create(FWorkPanel) do
begin
Name := AName;
Title := ATitle;
Hint := AHint;
Value := AValue;
Left := ALeft;
Top := ATop;
Width := AWidth;
Height := AHeight;
end;
IComboBox: with TIComboBox.Create(FWorkPanel) do
begin
Name := AName;
Title := ATitle;
Hint := AHint;
Value := AValue;
Left := ALeft;
Top := ATop;
Width := AWidth;
Height := AHeight;
end;
IComboBoxList: TIComboBoxList.Create(FWorkPanel);
IPicture: TIPicture.Create(FWorkPanel);
{noch einige mehr ...}
end;
// FControlList.Add()
end;