Skocz do zawartości
staniki

Klawiatura w delphi

Rekomendowane odpowiedzi

Mam pytanie, bo od kilku dni próbuję coś programować w Delphi i ciąglę nie mogę znaleźć jednej rzeczy a mianowicie:

Jak zrobić, żeby po naciśnięciu klawisza coś się w Delphi wydarzyło, tak jak w GMie jest:

if keyboard_check(ord('W'))
{
/*...*/
}

to jak by to było w Delphi? Próbowałem z :

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
{...}
end;

ale coś mi nie wychodzi. :crying:

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Zrobiłem tak:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key=#87) then
close;
end;

i nie działa :(. Powinno się zamknąć, a nie działa.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Sprawdź czy masz formę zaznaczoną (czy focus jest na formie)

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Może:

if readkey=#87 then instrukcja;

Nie jestem tylko pewien czy w Delphi to zadziała, ale powinno.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Patrz co przekazuje i jaki ma typ: ...Key: Char....

Więc:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key='w') then
close;
end;

I sprawdź jeszcze kod klawisza.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Na jedno wyjdzie. Char można też zapisać z # :P Zobacz z innymi klawiszami, może to W jest jakieś inne.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Nie o to chodzi, zobacz wielka a mała litera. =P

Ja nie pamiętam o tak o kodu małego W.

Udostępnij tego posta


Odnośnik do posta
Udostępnij na innych stronach

Jeśli chcesz dodać odpowiedź, zaloguj się lub zarejestruj nowe konto

Tylko zarejestrowani użytkownicy mogą komentować zawartość tej strony.

Zarejestruj nowe konto

Załóż nowe konto. To bardzo proste!

Zarejestruj się

Zaloguj się

Posiadasz już konto? Zaloguj się tutaj.

Zaloguj się tutaj

  • Przeglądający   0 użytkowników

    Brak zarejestrowanych użytkowników, przeglądających tę stronę.

×