Hallo
Ich habe ein kleines Problem,
ich möchte Komponenten (ComboBox,Edit)über TWinControl createn und diese an ein Treeview hängen.
Aber leider bekomme ich beim Createn eine
Exception.
Delphi-Quellcode:
if configTyp = Combo then
begin
KompTyp := ComboBox;
end;
//Erstellen der Komponente
TWinControl(KompTyp) := TWinControl(KompTyp).Create(nil);
TWinControl(KompTyp).Parent := LV;
li.Data := TWinControl(KompTyp);
//Größenanpassung
KomponteRect := li.DisplayRect(drBounds);
KomponteRect.Left := KomponteRect.Left + lv.Columns[-1 + KomponenteColIndex].Width;
KomponteRect.Right := KomponteRect.Left + lv.Columns[KomponenteColIndex].Width;
TWinControl(KompTyp).BoundsRect := KomponteRect;
end;
ich habe es mal nur mit TControl versucht was auch kein erfolg brachte.
KompTyp := TControl(KompTyp).Create(nil);