![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли добавить контекстное меню в ShellListView? [D7, WinXP]
Dash Rendar © (2007-08-10 14:57:00)Собственно сабж. Если кликнуть по элементу ShellListView, будь то файл или директория, то отобразится контестное меню для данного типа файла. А можно ли вызвать общее контекстное меню щелчком правой клавишей по пустому месту в ShellListView?
Dash Rendar (2007-08-15 17:33:00) [1]И все равно не совсем то что надо... чего-то я крупно не понимаю походу...
Elen (2007-08-10 16:50:00) [2]В догонку примерчик :
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-10 16:49:00) [3]Благодарю.
Elen (2007-08-10 16:45:00) [4]Порули функцию
InvokeContextMenu. Котрая собсно и вызывает это меню.
Dash Rendar (2007-08-10 16:27:00) [5]см. сабж. Так и сделано. Но выдает меню только, подчеркиваю, ТОЛЬКОдля элементов ShellListView.
Elen (2007-08-10 16:25:00) [6]А там ненадо ничего прикручивать. Там это уже есть, только нужно чтоб свойство AutoContextMenu стояло в True.
Dash Rendar (2007-08-10 15:34:00) [7]Это как раз понятно. =)
Я имею в виду контекстное меню проводника с возможностями создать или скопировать файл допустим.
Как его прикрутить к ShellListView?
{RASkov} (2007-08-10 15:31:00) [8]> [0] Dash Rendar (10.08.07 14:57)
Можно.... свойство ShellListView. PopupMenu.