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 ...


Anmelden zum Antworten