Datei löschen mit Popupmenü

[SaFu]

Hi ichkomme gerade nicht darauf

wie ich mit meinem Popupmenü in einer FileListbox den eintrag löschen kann

Besser gesagt wie makiere ich mit der rechten Maustaste den ausgewählten eintrag bevor das Popup menü aufgeht

das löschen geht schon

Delphi-Quellcode:

begin
if FileListBox2.FileName <> '' then //Wenn kein Name ausgewählt
  begin
    if MessageDlgPos('Wollen Sie dieses Dokument wirklich löschen? ',mtInformation,[mbYes,mbNo],0,260,200) = mrYes then
      begin
        a:= FileListBox2.FileName; //ausgewählte Datei in Variable übergeben

          if DeleteFile(FileListBox2.FileName) then
           begin
             FileListbox2.Update; //Aktualisieren
           end;
       end;
    end
  else
    MessageDlgPos('Bitte Namen des zu löschenden Dokumentes, auswählen!',mtInformation,[mbOk],0,200,180);
end;

Danke schonmal

[Matze]

Hallo

Zitat von fuknersascha:

Besser gesagt wie makiere ich mit der rechten Maustaste den ausgewählten eintrag bevor das Popup menü aufgeht

So zum Beispiel:

Delphi-Quellcode:

procedure TForm1.FileListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    FileListBox1.ItemIndex := FileListBox1.ItemAtPos(Point(X, Y), true);
end;

[SaFu]

Danke genau das wars