durch doppelanklicken auf eine row in einer tlistview wird folgender code gesetzt:
Delphi-Quellcode:
fmnachricht.Close;
IdPop32.Host := unit2.SMTPServer;//fmversand.ledHost.Text;
IdPop32.Username := unit2.SMTPServerUser;//fmlogin.edtUsername.Text;
IdPop32.Password := unit2.SMTPServerPassword; //fmlogin.edtPasswort.text;
For i := 1 to IDPop32.CheckMessages do
begin
mailmessage1.Clear;
IdPop32.Retrieve(lvfiles.selected.Index+i,mailmessage1);
fmnachricht.Show;
fmnachricht.sganzeige.cells[1,0] := mailmessage1.From.text;
fmnachricht.sganzeige.cells[1,1] := mailmessage1.Recipients.EmailAddresses;
fmnachricht.ledSubject.text := mailmessage1.Subject;
fmnachricht.memo.lines := mailmessage1.body;
mailmessage.Clear;
end;
IdPop32.Disconnect;
IdPop32.Free;
die daten vom server werden in einem tlistview (lvfiles) angezeigt.
durch doppelanklicken öffnet sich ein neues formular (fmnaricht)
in welchem dann die gesamte nachricht angezeigt wird.
das problem ist das bei wiederholten anklicken einer weiteren nachricht im tlistview
eine zugriffsverletzung auftritt. kann mir das einer erklären?