Можно ли заблокировать правую кнопку мыши?

← →
maxim2 (2002-08-13 13:39) [0]

Привет!

← →
Kaban (2002-08-13 13:41) [1]

для этого нужно вскрыть ее корпус и подсунуть под кнопку что-нибудь плотное

← →
maxim2 (2002-08-13 13:44) [2]

А если программно?

← →
Kaban (2002-08-13 13:45) [3]

а в чем проблема

← →
maxim2 (2002-08-13 13:55) [4]

Нельзя чтобы пользователь щелкал правой кнопкой

← →
Ученик (2002-08-13 14:00) [5]

Попробуй

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = wm_rbuttondown) or (Msg.message = wm_rbuttonup) or
(Msg.message = wm_rbuttondblclk) then
Handled := True
end;

Application.OnMessage := ApplicationEvents1Message

← →
Kaban (2002-08-13 14:02) [6]

messagebox(Handle, PChar("Не щелкай правой кнопкой мыши, а то диск отформатирую!!!"), PChar("Warning"),MB_OK+MB_IconWarning);

← →
maxim2 (2002-08-13 14:04) [7]

А куда вставлять
Application.OnMessage := ApplicationEvents1Message

← →
maxim2 (2002-08-13 14:05) [8]

Все спасибо разобрался.

Можно ли заблокировать правую кнопку мыши? Найти похожие ветки