Virtual ListView с контекстным меню

Previous  Top  Next

    
 

В Delphi5/Demos есть пример Virtual ListView. программка чем-то напоминает explorer, но без контекстного меню. контекстное меню приделывается так:

 

 

Code:

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;

©Drkb::01129

http://delphiworld.narod.ru/

DelphiWorld 6.0