| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Можно ли заблокировать правую кнопку мыши? [D6]
maxim2 © (2002-08-13 13:39:00)Привет!
maxim2 (2002-08-13 14:05:00) [1]Все спасибо разобрался.
maxim2 (2002-08-13 14:04:00) [2]А куда вставлять
Application.OnMessage := ApplicationEvents1Message
Kaban (2002-08-13 14:02:00) [3]messagebox(Handle, PChar("Не щелкай правой кнопкой мыши, а то диск отформатирую!!!"), PChar("Warning"),MB_OK+MB_IconWarning);
Ученик (2002-08-13 14:00:00) [4]Попробуй
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
maxim2 (2002-08-13 13:55:00) [5]Нельзя чтобы пользователь щелкал правой кнопкой
Kaban (2002-08-13 13:45:00) [6]а в чем проблема
maxim2 (2002-08-13 13:44:00) [7]А если программно?
Kaban (2002-08-13 13:41:00) [8]для этого нужно вскрыть ее корпус и подсунуть под кнопку что-нибудь плотное
| |
