Dummyfrage : Events in dynamisch erzeugten ListBoxes

[Drosera]

Moin zusammen ! (ich kanns schon hören: Der schon wieder :roll:)

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

[Jumpy]

Du musst dir anschauen, wie ein On-Clickevent aufgebaut ist und eine entsprechende Prozedur erstellen, z.B.

procedure MyOwnListboxOnClick(Sender: TObject);

Diese Prozedur musst du dann bei der Erzeugung der Listbox dem OnClick zuweisen:
songListBox.OnClick := MyOwnListboxOnClick;

In der Prozedur hast du dann mit Sender zugriff auf die Listbox:

Delphi-Quellcode:

procedure Form1.MyOwnListboxOnClick(Sender: TObject);
var lb:TListbox;
begin
  if Sender is TListbox then
    lb:=TListbox(Sender)
  else
    exit;

  //Mach was mit lb
end;

Ist jetzt nut schnell hingetippt, ohne Gewähr.

[Drosera]

Werde mal darüber meditieren:wink:.
Habe doch noch einen Beitrag (Thread ist in diesem Forum wohl eher missverständlich :-D) gefunden. Aber er beantwortet das Prob nicht ganz zufriedenstellend.

[Drosera]

Delphi-Quellcode:

songListBox := TListBox.Create(self);
        with songListBox  do begin
        songListBox.Parent := TabSheet;
        songListBox.Align := alClient;
        onDblClick  := songListBoxDblClick;
        end;

Naja, so ist das halt wenn nicht wirklich Ahnung hat... :(

[DeddyH]

Übrigens:

Zitat:

Delphi-Quellcode:

songListBox.Items := dateiHandling.dateiListe;

Das ist wahrscheinlich nicht das, was Du möchtest, denn damit zeigen unterschiedliche Zeiger auf dieselbe Instanz, und Du hast einen wilden Zeiger. Versuch doch einmal

Delphi-Quellcode:

songListBox.Items.Assign(dateiHandling.dateiListe);

Damit wird lediglich der Inhalt kopiert.

[Drosera]

hört sich fast an wie "Der wilde Kaiser" :lol:

@DeddyH : Danke für die Infos, habs auch gleich ausgebügelt.

[DeddyH]

Ich habe gerade noch einmal nachgesehen, die VCL macht automatisch ein Assign, damit das angesprochene Szenario gar nicht erst eintreten kann. Trotzdem sollte man sich so etwas gar nicht erst angewöhnen, denn man kann ja nicht sicher sein, dass der Autor der jeweiligen Klasse auch so vorausschauend gedacht hat ;)

[Jumpy]

Zitat:

Zitat von Drosera (Beitrag 1204647)

Delphi-Quellcode:

songListBox := TListBox.Create(self);
        with songListBox  do begin
        songListBox.Parent := TabSheet;
        songListBox.Align := alClient;
        onDblClick  := songListBoxDblClick;
        end;

Naja, so ist das halt wenn nicht wirklich Ahnung hat... :(

Nur weil ich's gerade sehe, das du in dem Beispiel "with" benutzt hast. Das ist immer wieder ein Diskussions-Thema ob man das benutzen soll oder nicht. Du bringst da ein Beispiel, wo es wenig Sinn macht, da du trotz with immer noch die Objektvariable mitbenutzt. Also entweder das with weglassen und vor OnDblClick ein songListBox. setzen oder das songListBox. bei Parent and Align weglassen.