Kody nastepujacych klawiszy: "," i "."...

0

Chcialbym aby program reagowal mi po wcisnieciu albo kropki albo przecinka.
Jednak nie wiem jakie sa kody tych klawiszy, czy ktos moze mi pomoc?--take care,

Wodzu

0

W dziale download jest program ASCI sciagniuj sobie. :-)
'.' 46
',' 44
--Pozdrawiam {hello}
Tomasz K.

0

Wiec dlaczego ta procedura mi nie dziala?:((

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If (Key=46) then Close;
end;

pomorzcie hmm... --take care,

Wodzu

0

Spróbuj
procedure TForm1.Edit1KeyDown(Sender:TObject;var Key:Word;Shift:TShiftState);
begin
If Key mod 256=46 then Close;{albo mod 255}
end;
--Sebo +)
(Delphi3)

0

Niestety ani mod 255 ani mod 256 nie dziala..:(--take care,

Wodzu

0

wpisz to:
if Ord(Key)=46 then Close;
w OnKeyPress a nie w OnKeyDown :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

0

Dzieki, jak zwykle wybawiasz mnie z opresji;)
A teraz badz laskaw zajrzec na inne moje blagalne posty;)--take care,

Wodzu

0

Wiem że problem został wyjaśniony, ale mimo wszysto chciałbym wtrącić swoje 3 grosze. tóż grosz pierwszy - pierwsza wersja procedury działać nie mogła - ponieważ Key jest to znak,nie jego numer, więc najprawdopodobniej zadziałoło by if key=',' then... nie chce mi się sprawdzić więc nie powiem cz na pewno. Drugi grosz, że jeśli nie jesteś pewien kodu to w delphi jest coś takiego jak virtual key codes - poszukaj w helpie, tam masz chyba wszystkie klawisze - po prostu piszesz że if ord(key)=vk_period then close; lub coś w tym stylu. Trzeciego grosza nie ma - zabrakło mi na Grześka w czekoladzie, więc wydałem ;-)

0

No to tera moje 3 grosze;)

grosz 1; Zobacz najpierw w naglowku procedury ktora podalem, jakiego typu jest zmienna Key a pozniej pisz, ze nie zadziala;)

grosz 2; w Virtual Keys nie ma wszystkich klawiszy, tak pi*drzwi to brakuje z 40 klawiszy...

grosz 3; nie przepadam za grzeskami ale za to batony komix to jest to;)

pozdrawiam,

Wodzu--take care,

Wodzu

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0