Можно ли добавить контекстное меню в ShellListView?

← →
Dash Rendar (2007-08-10 14:57) [0]

Собственно сабж. Если кликнуть по элементу ShellListView, будь то файл или директория, то отобразится контестное меню для данного типа файла. А можно ли вызвать общее контекстное меню щелчком правой клавишей по пустому месту в ShellListView?

← →
{RASkov} © (2007-08-10 15:31) [1]

> [0] Dash Rendar (10.08.07 14:57)

Можно.... свойство ShellListView.PopupMenu.

← →
Dash Rendar (2007-08-10 15:34) [2]

Это как раз понятно. =)
Я имею в виду контекстное меню проводника с возможностями создать или скопировать файл допустим.
Как его прикрутить к ShellListView?

← →
Elen © (2007-08-10 16:25) [3]

А там ненадо ничего прикручивать. Там это уже есть, только нужно чтоб свойство AutoContextMenu стояло в True.

← →
Dash Rendar (2007-08-10 16:27) [4]

см. сабж. Так и сделано. Но выдает меню только, подчеркиваю, ТОЛЬКО для элементов ShellListView.

← →
Elen © (2007-08-10 16:45) [5]

Порули функцию InvokeContextMenu. Котрая собсно и вызывает это меню.

← →
Dash Rendar (2007-08-10 16:49) [6]

Благодарю.

В догонку примерчик :

procedure TForm1.ShellListView1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then if (ShellListView1.SelectedFolder<>nil)and(ShellListView1.SelectedFolder.Parent<>ni l) then InvokeContextMenu(ShellListView1,ShellListView1.SelectedFolder.Parent, Mouse.CursorPos.X, Mouse.CursorPos.Y) else InvokeContextMenu(ShellListView1,ShellListView1.RootFolder, Mouse.CursorPos.X, Mouse.CursorPos.Y) end;

← →
Dash Rendar (2007-08-15 17:33) [8]

И все равно не совсем то что надо... чего-то я крупно не понимаю походу...

Можно ли добавить контекстное меню в ShellListView? Найти похожие ветки