Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Вниз

Обработка OnKeyPressed 


greenrul   (2002-03-07 14:41) [10]

Господа, примите мои искренние извинения 8(

1.
procedure TMainForm.HookKeyAction(Sender: TObject; VirtualKeyCode: Integer;
RepeatCount: Word; ScanCode: Byte; isExtendedKey, altIsDown,
keyWasDownBefore, keyIsBeingPressed: Boolean; var filterEvent: Boolean);
var ar:array[0..255] of char; ps:PChar;
begin
GetKeyNameText(VirtualKeyCode,@ar[0],256);
ps:=ar;
ShowMessage(ps);
end;


2.
procedure TMainForm.HookKeyAction(Sender: TObject; VirtualKeyCode: Integer;
RepeatCount: Word; ScanCode: Byte; isExtendedKey, altIsDown,
keyWasDownBefore, keyIsBeingPressed: Boolean; var filterEvent: Boolean);
var p: PChar;
begin
GetMem(p, 50);
GetKeyNameText(VirtualKeyCode, p, 50);
ShowMessage(string(p));
end;


НЕ ПОМОГАЕТ....




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.023 c
3-66793           kvcomp                2002-02-23 15:04  2002.03.21  
Ошибка в Paradox типа


1-66864           Kettle of delphi      2002-03-05 15:45  2002.03.21  
Про перехват системных сообщений...


3-66733           Revo                  2002-02-15 14:01  2002.03.21  
Как конвертировать базу данных из dBase в InterBase?


1-66926           ak                    2002-03-06 18:47  2002.03.21  
проблема с версией BDE


7-67024           Rosco                 2001-12-14 12:07  2002.03.21  
Как запустить свою программу как сервис