ListBox Problem mit Nmpop3

Gast Erhaltene Danke: 1

Hallo!

Ich habe mal wieder folgendes Problem....

Mein Programm schaut nach wie viele E-Mails auf einem Pop3 Server liegen. Dieses wird ja nmpop3.MailCount aufgelistet.

Nun mein Problem:
Ich möchte für jede E-Mail ein neues Item in der Listbox haben, so dass wenn ich z.B. das zweite Item anklicke nur die zweite E-Mail runtergeladen wird.

Wie realisiere ich das....Schaffe es noch nicht einmal die E-Mails in der ListBox anzuzeigen....

Soll ja einfach nur stehen:

Nachricht 1
nachricht 2
u.s.w.

Gast Erhaltene Danke: 1

Das erste hab ich schon hinbekommen:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

i := 0;
while i < nmpop31.Mailcount do

begin
  ListBox1.Items[i] := 'Nachricht ' + inttoStr(i + 1);
  i := i + 1;
end;

Jetzt muss ich nur noch wissen wie ich das mit dem E-Mails abrufen mache....

Gast Erhaltene Danke: 1

ok, das letzte Problem hat sich auch schon erledigt...

nächstes mal probier ich mal was länger bevor ich poste....

hier trotzdem der code:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ListBox1DblClick(Sender: TObject);
var a : Integer;
begin
a := ListBox1.ItemIndex;
a := a + 1;
 NMpop31.GetMailMessage(a);
 Memo1.Lines.Assign(nmpop31.MailMessage.Body);
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme