Tämä koodivinkki sanoo mitä bittejä näppäimistöstä lähetetään koneelle jotta se toimisi oikein...
Lisätkäähän tämä sitten sinne oikeeseen paikkaan :D
Eli on keydown tapahtumaan...
Ja vielä sanottakoon, että onnisuisihan tuokin silmukalla, mutta en jaksanut nyt ruveta väsäilemään...
Mutta voin väsäillä ja pistää tämän vinkin päälle (LaaksosAntin avulla tottakai :)...)
var left, i : integer; bits : Array [1..8] of integer; begin left := key; if left >= 128 then begin bits[1] := 1; inc(left,-128); else bits[1] := 0; end if left >= 64 then begin bits[2] := 1; inc(left,-64); else bits[2] := 0; end if left >= 32 then begin bits[3] := 1; inc(left,-32); else bits[3] := 0; end if left >= 16 then begin bits[4] := 1; inc(left,-16); else bits[4] := 0; end if left >= 8 then begin bits[5] := 1; inc(left,-8); else bits[5] := 0; end if left >= 4 then begin bits[6] := 1; inc(left,-4); else bits[6] := 0; end if left >= 2 then begin bits[7] := 1; inc(left,-2); else bits[7] := 0; end if left >= 1 then begin bits[8] := 1; inc(left,-1); else bits[8] := 0; end; label1.caption := ''; for i := 1 to 8; label1.caption := label1.caption + inttostr(bits[i]); end;
Aihe on jo aika vanha, joten et voi enää vastata siihen.