Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 192 • TDictionary Custom Sort 6 250 • Fast Watermark Sources 6 050 • 3D Designer 8 950 • Sik Screen Capture 6 375 • Patch Maker 6 795 • Айболит (remote control) 6 779 • ListBox Drag & Drop 5 653 • Доска для игры Реверси 96 309 • Графические эффекты 6 994 • Рисование по маске 6 280 • Перетаскивание изображений 5 169 • Canvas Drawing 5 540 • Рисование Луны 5 240 • Поворот изображения 4 788 • Рисование стержней 3 386 • Paint on Shape 2 644 • Генератор кроссвордов 3 528 • Головоломка Paletto 2 817 • Теорема Монжа об окружностях 3 630 • Пазл Numbrix 2 373 • Заборы и коммивояжеры 3 056 • Игра HIP 2 011 • Игра Go (Го) 1 935 • Симулятор лифта 2 295 • Программа укладки плитки 1 998 • Генератор лабиринта 2 452 • Проверка числового ввода 2 136 • HEX View 2 472 • Физический маятник 2 088

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Отключить реакцию на события мыши

Автор: KDenis

Звонок:
- У вас мыши есть?
- Нет...
- А когда будут?
- Не знаю...
- Это 'Демос'?
- Нет, квартира...

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Handled := (msg.wParam = vk_lButton) or
             (msg.wParam = vk_rButton) or
             (msg.wParam = vk_mButton);
end;

Отключить реакцию на события мыши

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