Sterowanie strzałkami klawiatury

0

Prawie natychmiast potrzebuję sterowania z klawiatury przy użyciu klawiszy strzałek!!! Pilnie proszę o pomoc

0

Mysle ze o to chodzi :)
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = vk_right then
*jesli prawo to ...
if Key = vk_left then
*jesli lewo to ...
if Key = vk_up then
*jesli gora to ...
if Key = vk_down then
*jesli dol to ...
end;

  --Pozdrawiam  {hello} 

Tomasz K.

0

Czym chcesz sterować?
napisz w sdarzeniu OnKeypress procedurę
if key=#{kod odpowiadający strzałce} then {rób coś w tą strone};
kody strzałek znajdziesz w helpie albo napisz najpierw programik który ci je wyciągnie:
w OnKeypress:
edit1.text:=inttostr(byte(key));
--Sebo +)
(D3)

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