статья - КЛАВИАТУРА

[Pblog]

КЛАВИАТУРА

Для начала маленький код для определения нажатия клавиши Print Screen:

 private procedure AppIdle(Sender: TObject; var Done: Boolean); 
 procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
  begin
   if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
     Form1.Caption := ‘PrintScreen!’; Done := True;
  end;

  procedure TForm1.FormCreate(Sender: TObject);
   begin
    Application.OnIdle := AppIdle;
   end;

А теперь программный аналог Print Screen’а:

procedure TForm1.Button1Click(Sender: TObject);

var [...]

[zvygin1964]

Спасибо !

[Utkin]

Спасибо !

Pblog это робот. Спасибо говорите админу форума или тому кто организовал этот процесс

[zvygin1964]

Именно так. Спасибо робот. Спасибо Алар. Спасибо тому, кто организовал этот процесс. Сам бы эту статью не нашёл. А так на глаза попалась... Спасибо.

[zvygin1964]

Проверка свечения диодов на клавиатуре не работает.
Работает если:

procedure TForm1.Button2Click(Sender: TObject);
var
X: integer;
begin
   // x – integer. X = 145 = Scroll Lock; X = 144 = Num Lock; X = 20 = Caps Lock
X := 20; //инициализируем переменную на определение нужной кнопки
if GetKeyState(X) and 1 = 0 then
Form1.Caption := 'Не горит'  //исправлены верхние штуковины-кавычки  " ' "
else
Form1.Caption := 'Горит';
end;

Коды виртуальных клавиш не заработали, наверно только у меня:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   SendMessage(Memo1.Handle,WM_CHAR,Ord('A'),0);
end;

Сообщение:
Debugger Exception Notification
---------
Project Project1.exe raised exception class EStackOverflow with message 'Stack overflow'. Process stopped. Use Step or Run to continue.

[Аватар]

WM_CHAR посылает Memo1 символ. Коль стек переполняется, значит обработка WM_CHAR вызывает срабатывание OnKeyPress и так по кругу. Рекурсия, она такая

[dummy_user]

Ещё свойство KeyPreview нужно выключить.