Home

Page 65
Page 65
background image

58 Глава 2

2.5. Маленькие шутки

В этом разделе собраны шутки, обсуждение которых не стоит большого раз-

дела.

Программное изменение состояния клавиш

 Lock, Caps Lock и Scroll Lock

Можно устроить настоящую цветомузыку на клавиатуре. Для этого надо

создать форму с кнопкой и таймером. При нажатии кнопки нужно запус-

тить таймер:

procedure

begin

end;

Теперь создайте обработчик события срабатывания таймера и в нем напи-

шите следующее:

procedure

 TObject);

begin

Timerl.Tag :=

 + 1) mod 4;

 Timerl.Tag  1);

 Timerl.Tag  2);

 Timerl.Tag  3);

end;

Тут в основном простая арифметика, для вычисления лампочку какой кноп-

ки сейчас зажечь, а какой потушить. Самым интересным является вызов
процедуры

 Она должна менять состояние клавиш. Но этой проце-

дуры нет среди стандартных библиотек в Delphi, ее нужно написать. Эта

процедура выглядит следующим образом:

procedure

 Integer; Value: Boolean);

var

KeyState: TKeyboardState;

begin

 :=

 ;

end;

Процедуру нужно разместить выше, чем обработчик события для второго

таймера, потому что она не относится к объекту окна и должна быть описа-

на раньше, чем будет использоваться. Все процедуры, которые не являются


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.