VPF::Virtual ListView и меню - Форум программистов

Ak47black

Дата 9.4.2007, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Как програмно в Virtual listviewe(пример каторый даеться с Delphi) нажать на пункт меню
пробую так

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  ContextMenu : IContextMenu;
  AInvokeCommand: TCMInvokeCommandInfo;
begin
  if   FIShellFolder.GetUIObjectOf(Handle, 1, ShellItem(ListView.Selected.Index).ID,
    IID_IContextMenu, nil, ContextMenu) = S_OK then
  begin
    FillMemory(@AInvokeCommand, SizeOf(AInvokeCommand), 0);
    with AInvokeCommand do
    begin
      cbSize := SizeOf(AInvokeCommand);
      hwnd := Handle;
      lpVerb := PChar('Cut'); // ñòðîêîâàÿ êîíñòàíòà äëÿ îïåðàöèè íàä ýëåìåíòîì...
      fMask := CMIC_MASK_FLAG_NO_UI;
       nShow := SW_SHOWNORMAL;
    end;
    // Âûïîëíåíèå êîìàíäû...
    ContextMenu.InvokeCommand(AInvokeCommand);
  end;
end;

Но невыходит

Это сообщение отредактировал(а) Ak47black - 9.4.2007, 13:37

MetalFan

Дата 9.4.2007, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

а что говорит?

--------------------

There are always someone smarter than you...

Ak47black

Дата 9.4.2007, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: 1
Всего: 0

Блин. Сорри все идёт.
Только будет0ли это работать на всех Windoвсах (я имею в виду рускоязычных)?
Ок проблема решена.

Это сообщение отредактировал(а) Ak47black - 9.4.2007, 17:00

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »