Hallo zusammen,
ich versände mit meinem Projekt Mails mit mehreren Anhängen.
Die Anhänge lade ich mir per TIDAttachment und schreibe den Filenamen in eine ListView.
Delphi-Quellcode:
procedure TMailSend.ButtonLadenClick(Sender: TObject);
begin
if (Opendialog1.Execute) then
begin
TiDAttachment.Create(MsgSend.MessageParts, Opendialog1.FileName);
ListviewAnhang.Items.Add.Caption := ExtractFilename(Opendialog1.FileName);
end;
end;
Wenn ich jetzt aber ein File nicht mit senden möchte, dachte ich mir, das ich es einfach aus der TIDAttachment Lösche.
Leider fällt mir keine möglichkeit ein die Attachmenst einzeln zu löschen und nicht alle.
Wie kann ich so etwas machen, das wenn ich im ListView ein FileName anklicke das richtige File aus dem Attachments gelöscht wird ?
Delphi-Quellcode:
procedure TMailSend.ListViewAnhangKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_DELETE then
if ListViewAnhang.Selected <> nil then
begin
// hier das Attachment Löschen ????????
ListViewAnhang.DeleteSelected;
{Anhang Löschen}
end
else
exit;
end;