Klawiatura w delphi

[staniki]

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:

[mike_p]

if(Key=#87) then costam;?

[staniki]

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.

[mike_p]

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

[staniki]

jest

[Marmot]

Może:

if readkey=#87 then instrukcja;

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

[Tymon]

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.

[mike_p]

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

[Tymon]

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

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

[staniki]

Dzięki Tymon, teraz mi w końcu działa :P.