Liste durch ListBoxen zusammen-klicken

[NiLS-Da-BuBi]

Mahlzeit,

mal wieder ein totales Anfänger Problem.

Ich möchte eine E-Mail Liste zusammenklicken - dazu habe ich eine INI Datei im Intranet die ungefähr so aussieht:

[LAND]
Firma=E-Mailadresse

So nun habe ich in meinem Delphi Form als erstes eine ComboBox in der ich das Land auswähle anschließend füllt sich rechts daneben eine CheckListBox mit allen Firmennamen - nun sollen die Firmennamen angecheckt werden die eine E-Mail erhalten sollen - und nun soll durch einen Button all gewählten E-Mail Adressen in eine Dritte ListBox - dies soll so eine Art Sammelbehälter für die E-Mails werden, da ich nun ein weiteres Land auswähle und so weitere E-Mails hinzufüge.

Mein Problem ist das ich nicht weiss wie ich sagen kann das:
Nimm jedes gecheckte Item und füge es zu Listbox3 hinzu!

Was ich noch schöner fände wäre eine Baumstruktur:
+Land
-Firma
-Emailadressen

Da weiss ich aber noch viel weniger wie ich das realisiere. Am aller besten wäre eine Drag'n'Drop - das man sich aus dem Baum einfach die Adresse auf die Listbox zieht und hier nun alle schön hinzugefügt werden.

Tipps? - Danke.

[shmia]

Das kann man alles abkupfern.
Mach mal im Delphi-IDE Menue:
Datei -> Neu... -> Formulare -> Dialog mit zwei Listenfeldern

Du bekommst ein neues Formular mit 2 Listboxen.
Links der "Vorrat" an dingen (Email-Adressen), rechts die gewählten Dinge.

[bernau]

Zitat von NiLS-Da-BuBi:

Mein Problem ist das ich nicht weiss wie ich sagen kann das:
Nimm jedes gecheckte Item und füge es zu Listbox3 hinzu!

Sollte so funktionieren.

Code:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  a:Integer;
begin
  for a:=0 to CheckListBox1.Items.Count-1 do
   if CheckListBox1.Checked[a]
    then CheckListBox2.Items.Add(CheckListBox1.Items[a]);
end;

Zitat von NiLS-Da-BuBi:

Was ich noch schöner fände wäre eine Baumstruktur:
+Land
-Firma
-Emailadressen

Dafür musst du dich mit einem TTreeView beschäftigen.



Gerd