[ cojaa @ 17.02.2007. 10:18 ] @
Kako da mi label prikaze ascii kod tipke koja je pritisnuta?
[ lpalfi @ 17.02.2007. 12:29 ] @
Probaj sa ovim:
Code:


procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
label1.Caption:=inttostr(key);
end;


Nadam se da sam bio od pomoći.
[ savkic @ 17.02.2007. 14:10 ] @
> Kako da mi label prikaze ascii kod tipke koja je pritisnuta?

Napravi handler za OnKeyPress i u njemu upiši:
Label1.Caption := IntToStr(Ord(Key));
[ cojaa @ 17.02.2007. 14:20 ] @
Zahvaljujem na pomoci. To je to.