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
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