|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.02.2011, 23:01 | #1 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Вызов системного меню файла в ListView
Поискал по форуму, но ничего полезного не нашёл, поэтому решил создать новую тему.
Мне нужно вызвать системное меню файла в ListView (не знаю правильно ли выразил свою мысль). Нашёл в инете пример, но кое что не понял: procedure TForm1.PopupMenu1Popup(Sender: TObject); var ContextMenu : IContextMenu; menu : HMENU; begin FIShellFolder.GetUIObjectOf(Handle, 1, ShellItem(ListView.Selected.Index). ID, IID_IContextMenu, nil, ContextMenu); //Не могу понять что за FIShellFolder и как его заменить *No coments* menu := CreatePopupMenu(); ContextMenu.QueryContextMenu(menu, 0, 1, $7FFF, CMF_EXPLORE); TrackPopupMenu(menu, TPM_LEFTALIGN or TPM_LEFTBUTTON or TPM_RIGHTBUTTON or TPM_RETURNCMD, Mouse.CursorPos.x, Mouse.CursorPos.y, 0, Handle, nil); DestroyMenu(menu); end;
Возможно Я Быдлокодер ©.
|
09.02.2011, 22:39 | #2 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Увы никто не знает.
Возможно Я Быдлокодер ©.
|
09.02.2011, 22:59 | #3 |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
у тебя меню всегда одно будет или его список должен меняца?
VirusN13
|
09.02.2011, 23:33 | #4 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Возможно вы меня не так поняли. Я говорю про системный Popup какого-либо файла.
Этот список меняется, например, когда устанавливается программа которая для удобства добавляет свои пункты в системное меню.
Возможно Я Быдлокодер ©.
|
10.02.2011, 00:33 | #5 |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
если не сложно немного по подробнее, вы операционку пишите?
кликнул я по фаилу, и что должно появица меню(ListView)?
VirusN13
|
10.02.2011, 00:41 | #6 | |
Подтвердите свой е-майл
Регистрация: 19.12.2010
Сообщений: 808
|
Посмотрите в хэлпе WIN32.HLP (каталог Borland Shared)
IShellFolder::GetUIObjectOf Это айпишная функция, если я не ошибаюсь... Цитата:
Так что операционка тут ни при чем. Это обычная практика. Последний раз редактировалось asmodey1; 10.02.2011 в 00:44. |
|
10.02.2011, 00:46 | #7 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Нет я не пишу ось) Просто в ListView список файлов, я кликаю по одному из них ПКМ и должно появится системное меню этого файла. Пример есть, а вот как под ListView написать увы не знаю.
Возможно Я Быдлокодер ©.
|
10.02.2011, 00:46 | #8 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Нет я не пишу ось) Просто в ListView список файлов, я кликаю по одному из них ПКМ и должно появится системное меню этого файла. Пример есть, а вот как под ListView написать увы не знаю.
Возможно Я Быдлокодер ©.
|
10.02.2011, 04:35 | #9 | |
DelphiProger
Участник клуба
Регистрация: 14.11.2010
Сообщений: 1,023
|
Цитата:
в обшем не понял я его по делу вот что я нашел и чуть чуть подредактировал
VirusN13
|
|
10.02.2011, 16:55 | #10 |
Форумчанин
Регистрация: 25.11.2010
Сообщений: 164
|
Такой пример у меня уже есть, а вот как сделать, чтобы все пункты отображались, а не только стандартные, я не знаю.
Возможно Я Быдлокодер ©.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
загрузка из файла ini в ListView | DenisVoronov | Компоненты Delphi | 9 | 08.11.2010 20:16 |
Вызов макросов из меню с параметрами | tae1980 | Microsoft Office Excel | 4 | 22.09.2010 22:59 |
contextMenuStrip и ListView, всплывающее меню с условием | Casper-SC | Общие вопросы .NET | 0 | 31.03.2010 02:43 |
PopUp меню в ListView | Altera | Компоненты Delphi | 9 | 28.09.2009 11:58 |
Вызов контекстной справки для компонента из Help-файла в Delphi7 | Olyshka14 | Помощь студентам | 0 | 12.06.2009 20:00 |