VPF::TWebBrowser имеет свое PopupMenu - Форум программистов

Budy

Дата 14.1.2005, 17:01 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

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

:Привет
Не могу разобраться с TWebBrowser, у него при Navigate свое PopupMenu, а я хотел бы егошнее на свое изменить.
И еще как мона сделать чтоб при каждом Navigate он не издавал всяких звуков переходов?

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Budy

Дата 15.1.2005, 09:22 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

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

Ну, кто-нить помогите! smile

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Alex

Дата 15.1.2005, 10:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Цитата(Budy @ 14.1.2005, 17:01)

Не могу разобраться с TWebBrowser, у него при Navigate свое PopupMenu, а я хотел бы егошнее на свое изменить.

Свойство WebBrowser PopupMenu = PopupMenu1

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Budy

Дата 15.1.2005, 19:46 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

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

Неа, когда грузить через Navigate, после етого другое PopupMenu вылазит, такое ж ка в броузере

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

Alex

Дата 15.1.2005, 20:12 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 80
Всего: 162

Просто подключи модуль к проекту:

Код


unit WbPopup;

interface

uses Windows, Controls, Messages, ShDocVw, Forms;

var
 HMouseHook:THandle;
 Pop: Boolean;

implementation


function MouseProc(
   nCode: Integer;     // hook code
   WP: wParam; // message identifier
   LP: lParam  // mouse coordinates
  ):Integer;stdcall;
var MHS:TMOUSEHOOKSTRUCT;
   WC:TWinControl;
begin
  Result:=CallNextHookEx(HMouseHook,nCode,WP,LP);
  if nCode=HC_ACTION then begin
    MHS:=PMOUSEHOOKSTRUCT(LP)^;
    if ((WP=WM_RBUTTONDOWN) or (WP=WM_RBUTTONUP)) then begin
      WC:=FindVCLWindow(MHS.pt);
      if (WC is TWebBrowser) then begin
        Result:=1;
        if (TWebBrowser(WC).PopupMenu<>nil) and (WP=WM_RBUTTONUP) then begin
          if Pop then Exit;
          Pop := True;
          TWebBrowser(WC).PopupMenu.Popup(MHS.pt.x,MHS.pt.y);
          Pop := False;
        end;
      end;
    end;
  end;
end;

initialization
  HMouseHook:=SetWindowsHookEx(WH_MOUSE,@MouseProc,HInstance,GetCurrentThreadID);

finalization
  UnhookWindowsHookEx(HMouseHook);

end.

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

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Budy

Дата 15.1.2005, 20:37 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 616
Регистрация: 6.2.2004
Где: Екатеринбург

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

}{мммм, интэрэсно. Попробую

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

Как ты назовешь свой корабль, так на нем и напишут
user posted image

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