Hi all..... Ada yang tau nga gimana cara ngecek tombol di keyboard pake fungsi apa??? Soalnya gini : Klo tombol 1 ditekan kluar angka 1, dsb.... Oh ya, yang saya mau tau cuman pengecekan tombol angka dari 0 sampai 9 doank....... Thx

pertanyaannya gak jelas....aku coba menanggapi....

Soalnya gini : Klo tombol 1 ditekan kluar angka 1, dsb....

ya emang harus-nya seperti itu.!!! emang penginnya gimana??? apa penginnya tekan akan 1 terus keluar angka 8 atau lain sebagainya...

Oh ya, yang saya mau tau cuman pengecekan tombol angka dari 0 sampai 9 doank.......

kalo mo ngecek tombol yg ditekan pake OnKeyPress aja.... tombol yg ditekan akan disimpen di variabel parameter key;

TForm1.Edit1KeyPress(sender:TObject; var key : char);
begin
   showmessage('Tombol Yang Anda Tekan Adalah :' +#13+ key);
end;

ok2 saya perjelas..... maap klo pertanyaan pertama kurang jelas..... maksud saya, saya mau menampilkan apa yang saya ketik dari keyboard trus muncul di Label..... klo saya tekan angka 1 yah kluar angka 1 di Label..... trus klo tekan angka 8 yah kluar angka 8 di Label.... gitu loh..... ^_^ V oh ya saya sudah ketemu caranya..... pake event on key press --> sama seperti yang dikatakan mas_kofa :lol:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
     if (key='0') then
        begin
        Label1.Caption:='0';
        end;
      if (key='1') then
        begin
        Label1.Caption:=' '+'1';
        end;
      if (key='2') then
        begin
        Label1.Caption:='2';
        end;
      if (key='3') then
        begin
        Label1.Caption:='3';
        end;
      if (key='4') then
        begin
        Label1.Caption:='4';
        end;
      if (key='5') then
        begin
        Label1.Caption:='5';
        end;
      if (key='6') then
        begin
        Label1.Caption:='6';
        end;
end;

btw makasih banyak yah mas _kofa 8)

sama2 kalo boleh prognya yg diatas saya singkat ya??

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
   case key of
     0, 2..6 : Label1.Caption := key;
     1          : Label1.Caption := ' ' + key;
   end;
end;

sehingga prog tdk terlalu panjang................ SMoga Membantu...........semangat terus.............

klo tombol yang di pencet adalah tombol Esc gimana kk?

ESC code = VK_ESCAPE atau 27 atau ordinal #27