Einzelnen Beitrag anzeigen

WizoHulk

Registriert seit: 25. Jun 2010
198 Beiträge
 
Delphi 5 Enterprise
 
#1

TWincontrol Komponenten Createn

  Alt 22. Aug 2011, 11:46
Delphi-Version: 2007
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);

Geändert von WizoHulk (22. Aug 2011 um 11:48 Uhr)
  Mit Zitat antworten Zitat