Форум: "Основная";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];

Вниз

Контекстное меню   Найти похожие ветки 

← →
DDA   (2004-01-05 21:48) [0]

в Program Files\Borland\Delphi6\Demos\ есть пример Virtual 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);
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;



то появляется Контекстное меню

что-то я пытался переделать под свой ListView ,да что-то не получилось

в строке
FIShellFolder.GetUIObjectOf(Handle, 1, ShellItem(ListView.Selected.Index).ID,
IID_IContextMenu, nil, ContextMenu);

как можно получить результат <ShellItem(ListView.Selected.Index).ID)>

Или кто-нибудь может предложит другой код для вызова Контекстного меню?

---

← →
DDA   (2004-01-06 18:48) [1]

Кто-нибудь помогите
лучше примерчиком

---

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

Форум: "Основная";
Текущий архив: 2004.01.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.067 c