Mendapatkan kode ASCII dari tombol ditekan dengan Delphi 7 ( how to get keyboard ASCII kode using delphi 7)

Berikut ini adalah source code untuk mendapatkan kode ascii dari masing - masing tombol yang di tekan dengan menggunakan delphi 7


Set property KeyPreview pada form utama menjadi True

manfaatkan event OnkeyDown pada form utama

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Label1.Caption:=Chr(Key)+' - '+IntToStr(Key);
end;

KLIK DI SINI  KUNJUNGI WEBSITE DAGANGAN KAMI KLIK PADA TEKS BERKEDIP INI