ComboBox. Brauche hilfe

[Zero]

Hallo Leute. brauche noch mal Hilfe.

Ich weiss das ist jetzt viel verlangt, aber vieleicht ist jemand so Freundlich:

Ich brauche ein Beispiel, wie ich folgendes realisieren kann.

Ich habe zwei Combo Boxen. In den oberen stehen zwei Pfade drin. C:\ und sagen wir mal C:\windows

in der underen ComboBox mehrer Einträge wie *.doc *.zip usw.

Jetzt soll es aber so sein. Jeder Pfad soll X Einträge zugewissen haben. Damit meine ich z.B Pfad C:\ hat Endung *.zip *.doc und *.dat eingetragen. Wähle ich aber jetzt oben C:\windows aus, dann sollen unten andere EInträge aufgeführt werden. Kann mir jemand dafür ein Beipiel geben. Wäre echt super.

Vielen Vielen Dank

Gruß Christian

[Jens Schumann]

Moin Zero,<br>das Beispiel findest Du in der Delphi-Hilfe unter Findfirst und FindNext. <br>Tip die Maske für Findfirst gibt Deine untere ComboBox vor

[Zero]

Sorry aber da kann ich nicht ganz Folgen..

gruß Christia

[Uli Becker]

@Jens: ich denke, er meint etwas anderes.

Wenn ich dich richtig verstanden habe, geht es so:

In OnCreate des Formulares 2 StringListen mit den Extensions erstellen, in OnDestroy wieder freigeben!
<pre>

var sl1,sl2: TStringList;
...
sl1 := TStringList.create;
sl1.add('*.zip');
sl1.add('*.doc');

sl2 := TStringList.create;
sl2.add('*.dat');
sl2.add('*.bmp');
</pre>

OnChange von Combobox1:
<pre>
if combobox1.itemindex = 0 then
combobox2.items := sl1
else
combobox2.items := sl2;
</pre>

Gruß Ul

[Jens Schumann]

Hallo Uli,<br>kann sein dass Zero etwas anderes meint. Aber ich sehe, dass Du auch nicht so genau weisst was der Kollege wissen möchte

[Uli Becker]

Hallo Jens,

ja, wenn jeder seine Fragen so präzise stellen würde, dass man gleich Bescheid wüsste, wäre das Forum ja halb leer ;-)

Schönen Abend

Gruß Ul

[Zero]

Werde die Frage noch mal umstellen, gegen Abend ;-) Gruß Christia

[Jens Schumann]

Hallo Uli,<br>selbstverständlich gelingt es auch mir nicht immer präzise Fragen zu stellen. Aber ich bemühe mich meistens.<br>Wenn ich dann da so sitze und mir eine präzise Formulierung ausdenke, kam es schon oft vor, dass ich die Frage gar nicht mehr stellen musste, weil ich durch den Versuch der präzisen Formluierung auf die Lösung gekommen