Kako da mi label prikaze ascii kod tipke koja je pritisnuta?
tastatura i ascii kod...
Zaključano
Zakačeno
Probaj sa ovim:
Nadam se da sam bio od pomoći.
Code:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption:=inttostr(key);
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption:=inttostr(key);
end;
Nadam se da sam bio od pomoći.
> 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));
Napravi handler za OnKeyPress i u njemu upiši:
Label1.Caption := IntToStr(Ord(Key));
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Zahvaljujem na pomoci. To je to.