Hallo zusammen!
Also mit diesem dynamisch erzeugtem Klumpatsch stehe ich wirklich auf kriegsfuß
.... (wills aber unbedingt so haben).
Ich habe wirklich gewühlt und gebastelt, aber hierbei fehlt es mir wohl an tiefgreifendem Verständnis der Materie (so ist das halt mit Amateur-Newbes)
Also hier das Problem:
Es wird in ein dyn. erzeugtes TTabSheet eine ListBox "gepflanzt"
Delphi-Quellcode:
TabSheet := TTabSheet.Create(PageCtrl); // Basis Tab-Erzeugung
TabSheet.PageControl := PageCtrl; // Basis Tab-Erzeugung
TabSheet.Caption := tabListe[i]; // Basis Tab-Erzeugung
//**** Verzeichnis zu passendem Tab ermitteln
verz := verzeichnisHandlingUnit.leseInfoZuKey(abschnitt, TabSheet.Caption);
//************ zufügen SongListBoxes ****************//
songListBox := TListBox.Create(self);
with songListBox do begin
Parent := TabSheet.PageControl.ActivePage;
Align := alClient;
//**** Auslesen der Dateien eines Verzeichnises
//***** und befüllen aktuelle SongListBox
Items.Assign(verzeichnisHandlingUnit.leseFilenamen(verz));
//****** Mit EventHandling versehen
onClick := selectLine;
end;
Wie greife ich jetzt auf die ListBox des aktuellen TabSheets zu?
Mein letzer von vieeelen Versuchen:
Delphi-Quellcode:
procedure TsqdForm.selectLine(Sender: TObject);
begin
with tabSheet.PageControl.ActivePage do
Memo1.Lines.Add(songListBox.Items.Text);
end;
Liefert mir immer nur den Eintrag aus dem als letztes erstellten Tab, egals welches Tab (optisch) aktiv ist.
Wie gesagt: Wohl grundlegendes Verständnisproblem.
Hat vielleicht jmd. Lust mich aufzuklären, also delphitechnisch (also bitte nicht anfangen über Bienchen und Blümchen referieren
)