Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Можно ли добавить контекстное меню в 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.


Наверх

Титульная страница Поиск, карта сайта Написать письмо