Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.10.28;
Скачать: CL | DM;

Вниз

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

Благодарю.


 
Elen ©   (2007-08-10 16:50) [7]

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

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]

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



Страницы: 1 вся ветка

Текущий архив: 2007.10.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.014 c
2-1191475503
PPop
2007-10-04 09:25
2007.10.28
Как перевести символы кириллицы в нижний регистр?


2-1191402871
Pacific
2007-10-03 13:14
2007.10.28
WebBrowers1


15-1189765740
pasha_golub
2007-09-14 14:29
2007.10.28
[Fatal Error] Internal error: L681


9-1162381901
DI FES
2006-11-01 14:51
2007.10.28
Помогите Пожалуйста!


15-1191409720
PPop
2007-10-03 15:08
2007.10.28
Ну как указать этот Main-Class в файле manifest.mf?