Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 962

•  TDictionary Custom Sort  6 074

•  Fast Watermark Sources  5 870

•  3D Designer  8 695

•  Sik Screen Capture  6 193

•  Patch Maker  6 629

•  Айболит (remote control)  6 622

•  ListBox Drag & Drop  5 480

•  Доска для игры Реверси  95 472

•  Графические эффекты  6 830

•  Рисование по маске  6 026

•  Перетаскивание изображений  5 008

•  Canvas Drawing  5 377

•  Рисование Луны  5 102

•  Поворот изображения  4 641

•  Рисование стержней  3 279

•  Paint on Shape  2 521

•  Генератор кроссвордов  3 413

•  Головоломка Paletto  2 725

•  Теорема Монжа об окружностях  3 515

•  Пазл Numbrix  2 315

•  Заборы и коммивояжеры  3 002

•  Игра HIP  1 957

•  Игра Go (Го)  1 875

•  Симулятор лифта  2 222

•  Программа укладки плитки  1 940

•  Генератор лабиринта  2 377

•  Проверка числового ввода  2 064

•  HEX View  2 387

•  Физический маятник  2 021

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Отменить контекстное меню в WebBrowser



Вы хотите попасть в виртуальный мир, но у вас нет денег на покупку компьютера? Вы не любите Интернет-кафе? В таком случае мы предлагаем вам новое альтернативное средство доступа к виртуальному миру, цена всего 200 рублей за одну таблетку.


var 
  HookID: THandle; 

function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall; 
var 
  szClassName: array[0..255] of Char; 
const 
  ie_name = 'Internet Explorer_Server'; 
begin 
  case nCode < 0 of 
    True: 
      Result := CallNextHookEx(HookID, nCode, wParam, lParam) 
      else 
        case wParam of 
          WM_RBUTTONDOWN, 
          WM_RBUTTONUP: 
            begin 
              GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName)); 
              if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then 
                Result := HC_SKIP 
              else 
                Result := CallNextHookEx(HookID, nCode, wParam, lParam); 
            end 
            else 
              Result := CallNextHookEx(HookID, nCode, wParam, lParam); 
        end; 
  end; 
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId()); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  if HookID <> 0 then 
    UnHookWindowsHookEx(HookID); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Webbrowser1.Navigate('http://www.google.com'); 
end;





Похожие по теме исходники

Mini WebBrowser (браузер)

Simple WebBrowser (браузер)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте