Event für Dynamische TListBox erstellen
-
Hy,
wie unten angegeben erstelle ich dynamisch meine ListBoxen
nun will ich aber dem, auch noch einen onklick event hinzufügen.
Wie kann ich das machen ?
tTabSheet.Length++; //Dynamisches Array hochzählen bei jedem Durchlauf tTabSheet[tTabSheet.Length-1] = new TTabSheet( PageControl1 ); tTabSheet[tTabSheet.Length-1]->Name = "Tab_" + IntToStr(tTabSheet.Length); tTabSheet[tTabSheet.Length-1]->PageControl = PageControl1; tTabSheet[tTabSheet.Length-1]->Parent = PageControl1; tTabSheet[tTabSheet.Length-1]->Caption = (String)cName; tTabSheet[tTabSheet.Length-1]->Show(); lList.Length++; //Dynamisches Array hochzählen bei jedem Durchlauf lList[lList.Length-1]= new TListBox( tTabSheet[tTabSheet.Length-1] ); lList[lList.Length-1]->Name = "List_" + IntToStr(lList.Length); lList[lList.Length-1]->Parent = tTabSheet[tTabSheet.Length-1]; lList[lList.Length-1]->Align = alClient; lList[lList.Length-1]->Items->Clear(); lList[lList.Length-1]->Style=lbStandard; lList[lList.Length-1]->MultiSelect=false; PageControl1->Refresh();
-
-
Danke *schäm*
hab extra gesucht, aber nichts gefunden gehabt ...
jetzt gehts

weise bei der erstellunge einfach
lList[lList.Length-1]->OnClick=ListBoxClick;zu ...