Hallo.
Ich habe eine Listbox, die Dateinamen in den Captions besitzt. (Dateinamen ohne Pfadangaben)
Wenn der Benutzer einen Eintrag doppelklickt, wird die Datei geöffnet (über ShellExecute im OnDblClick)
Was ich jetzt noch realisieren möchte, ist ein Windows Kontextmenü (Öffnen, Umbenennen, Löschen, Eigenschaften etc.) für die jeweils angewählte Datei, wenn der Benutzer mit der rechten Maustaste auf eine Zeile klickt.
Wie realisiert man das?
Delphi-Quellcode:
procedure TMainForm.database_list_mousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
tmp: string;
begin
if (Button = mbRight) and (database_list.SelCount > 0) then
begin
tmp := GetDownloadDirectory + database_list.Selected.Caption;
if FileExists(tmp) then
begin
// ToDo: KontextMenue
// KontextMenue(tmp);
showmessage(tmp);
end;
end;
end;
Vielen Dank.
Gruß
blackdrake