29 lines
408 B
Plaintext
29 lines
408 B
Plaintext
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
|
private
|
|
SavedPressedKey: Char;
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
SavedPressedKey := Key;
|
|
end;
|
|
|
|
end.
|