Moin zusammen ! (ich kanns schon hören:
Der schon wieder )
Nach langem suchen und friemeln hab ich mir folgende Konstellation zusammen geschustert:
Delphi-Quellcode:
TabSheet := TTabSheet.Create(PageCtrl); // Basis für Tab-Erzeugung
TabSheet.PageControl := PageCtrl; // Basis für Tab-Erzeugung
TabSheet.Caption := tabListe[i]; // Basis für Tab-Erzeugung
//**** Verzeichnis zu passendem Tab ermitteln
verz := verzeichnisHandlingUnit.leseInfoZuKey(abschnitt, TabSheet.Caption);
//**** Auslesen der Dateien eines Verzeichnises
dateiListe := verzeichnisHandlingUnit.leseFilenamen(verz);
//************ zufügen SongListBoxes ****************//
songListBox := TListBox.Create(self);
songListBox.Parent := TabSheet;
songListBox.Align := alClient;
//************ befüllen aktuelle SongListBoxes ****************//
songListBox.Items := dateiHandling.dateiListe;
end;
Delphi-Quellcode:
procedure TsqdForm.songListBoxDblClick(Sender:TObject);
begin
selectedSong := songListBox.Items[songListBox.ItemIndex];
Memo1.Lines.Add(selectedSong);
end;
Es werden TabSheets erzeugt (aus Einträgen einer INI-Datei, dieses Objekt (eine TPageControl) ist direkt über die
VCL (so heisst doch die visuelle Progammieroberfläche, oder?) initialisiert.
In jedes wird dynamisch eine ListBox eingefügt.
Jede Listbox ihrerseits befüllt, mit Dateien aus einem jeweils anderen Verzeichnis.
Das funktioniert auch soweit
Mein Problem: Keine Reaktion auf das KlickEvent, welches ich
manuell einbauen musse (zumindes wusste ich mir nicht anders zu helfen).
So wie es aussieht wird das EventHandling der Komponent entweder nicht "weiter vererbt", oder muß ich explitzit vorgeben von welcher ListBox ich gerade das Event empfangen will?
Muß ich bei den dynamisch erzeugten ListBoxes das Eventhandling
manuell anmelden?
Falls ja: wie geht denn sowas (bzw. wo könnte ich Infos finden)?
Hoffenlick konnte ick mir soweit klar jenuch machen, dette mir jemand auffe Sprünge helfen kann?
Beste Grüße
Drosera Rotundifolia
P.S. Ich habe zwar nach dem Thema gewühlt, aber ausser schmutzigen Fingernägeln nichts bekommen..