Programalama > DELPHI

procedure TForm1.FormKeyDown
(Sender: TObject; var Key: Word; Shift: TShiftState);
...
procedure TForm1.FormKeyUp
(Sender: TObject; var Key: Word; Shift: TShiftState);
...
procedure TForm1.FormKeyPress
(Sender: TObject; var Key: Char);

if Key in ['a'..'z'] + ['A'..'Z'] then Key:=#0

if HiWord(GetKeyState(vk_PageUp)) <> 0 then
  ShowMessage('PageUp - DOWN')
else
  ShowMessage('PageUp - UP');

if ssCtrl in Shift then
  Form1.Caption:= 'Ctrl +' + Chr(Key);

KeyDown (Ctrl) // ssCtrl
 KeyDown (Ctrl+A) //ssCtrl + 'A'
 KeyPress (A) 
 KeyUp (Ctrl+A)
procedure TForm1.FormKeyPress
(Sender: TObject; var Key: Char);
begin
 if Key in ['0'..'9'] then Key := #0
end;