Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by smart,
20. Apr 2005
Hi Sharky!
Ich werde warnsinnig! Da habe ich doch tatsächlich „Exit“ übersehen und suche schon einige Stunden warum der Code nicht läuft. Da fällt einem nichts mehr zu ein. Vielen Dank für Dein Hinweis. Jetzt klappt es. Aber bitte.... nicht lachen.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by smart,
20. Apr 2005
Nein, jetzt haben wir uns falsch verstanden. Ich meinte nicht die Fehler sondern EMailtext. Ich habe mich da dumm ausgedrückt.
procedure TForm1.ListBox1DblClick(Sender: TObject);
Var
intIndex:Integer;
begin
If POP.Connected Then POP.Disconnect;
POP.Connect;
POP.Retrieve(ListBox1.ItemIndex + 1, IdMessage1);