Как убрать возможность нажатия правой кнопки мыши?

@Agapov_stas · Регистрация: 05.08.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте,уважаемые форумчане!
Подскажите,кто знает...
При запуске adp.проекта сделал, чтоб "прятались" таблы, верхнее меню и т.д.(по поводу SHIFT еще не делал)
НО,вопрос : Как убрать возможность нажатия правой кнопки мыши(поламать ее, - не предлагать:-))) ), чтоб нельзя было выбирать
<конструктор форм, режим таблицы > и т.д.?

Блокировать програмно нажатие мыши?если да, - то как?(желательно пример..)
Заранее спасибо!

Добавлено через 2 часа 58 минут
Вопрос решен..
Топик можно закрыть...
Кому надобно, то в свойствах формы в "Контекстные меню" поставить НЕТ.
Хотя если кто знает как это сделать програмно,буду очень признателен!

@Teslenko_EA · 24.12.2010, 13:44

Здравствуйте Agapov_stas.
"..Как убрать возможность нажатия правой кнопки мыши.." - действительно можно только поломав её.

а для работы с контекстным меню формы действительно вариант : "..в свойствах формы в "Контекстные меню" поставить НЕТ.."
возможно Вам будет интересно, для БД MS Access существует способ :
меню Сервис / Параметры запуска... / Контекстное меню по умолчанию - отключить.
Евгений.

@Agapov_stas · 24.12.2010, 14:33 **[ТС]**

Здравствуйте, Евгений!

Просто думал,может еще есть чего?
На нажатие кнопки - Form_KeyDown, прокрутка колеса мышки MouseWheel, а вот кнопка мышки...

@ironegg · 25.12.2010, 21:22

можно поидее перехватить и отменить событие...

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Const PM_REMOVE = &H1
Private Const WM_RBUTTONUP = &H205
Private Const WM_RBUTTONDOWN = &H204
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
 
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
 
Public bCancel As Boolean
Public hW&
 
Public Sub ProcessMessages()
    Dim Message As Msg
    Do While bCancel
        WaitMessage
        If PeekMessage(Message, Form_Ôîðìà2.hWnd, WM_RBUTTONDOWN, WM_RBUTTONUP, PM_REMOVE) Then
            DoEvents
        End If
        DoEvents
    Loop
End Sub

работает нестабильно и глючно, почему-то. может можно "допилить"?

Новые блоги и статьи Все статьи Все блоги /
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471

	Как убрать возможность нажатия правой кнопки мыши? 24.12.2010, 12:51. Показов 7442. Ответов 3 Метки нет (Все метки) Здравствуйте,уважаемые форумчане! Подскажите,кто знает... При запуске adp.проекта сделал, чтоб "прятались" таблы, верхнее меню и т.д.(по поводу SHIFT еще не делал) НО,вопрос : Как убрать возможность нажатия правой кнопки мыши(поламать ее, - не предлагать:-))) ), чтоб нельзя было выбирать <конструктор форм, режим таблицы > и т.д.? Блокировать програмно нажатие мыши?если да, - то как?(желательно пример..) Заранее спасибо! Добавлено через 2 часа 58 минут Вопрос решен.. Топик можно закрыть... Кому надобно, то в свойствах формы в "Контекстные меню" поставить НЕТ. Хотя если кто знает как это сделать програмно,буду очень признателен! 0

@Teslenko_EA 1181 / 632 / 39 Регистрация: 30.05.2010 Сообщений: 715
	24.12.2010, 13:44
	Здравствуйте Agapov_stas. "..Как убрать возможность нажатия правой кнопки мыши.." - действительно можно только поломав её. а для работы с контекстным меню формы действительно вариант : "..в свойствах формы в "Контекстные меню" поставить НЕТ.." возможно Вам будет интересно, для БД MS Access существует способ : меню Сервис / Параметры запуска... / Контекстное меню по умолчанию - отключить. Евгений. 1

@Agapov_stas 3357 / 1776 / 83 Регистрация: 05.08.2010 Сообщений: 4,471
	24.12.2010, 14:33 [ТС]
	Здравствуйте, Евгений! Просто думал,может еще есть чего? На нажатие кнопки - Form_KeyDown, прокрутка колеса мышки MouseWheel, а вот кнопка мышки... 0