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

Вниз

Обработка OnKeyPressed   Найти похожие ветки 

← →
Виктор Щербаков   (2002-03-06 17:59) [7]

Разбираться с компонентом некогда. Вот рабочий пример:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WMKeyDown(var Message: TWMKeyDown); message WM_KEYDOWN;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMKeyDown(var Message: TWMKeyDown);
var p: PChar;
begin
GetMem(p, 50);
GetKeyNameText(Message.KeyData, p, 50);
Form1.Caption := string(p);
FreeMem(p);
end;

end.

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.43 MB
Время: 0.106 c