Skojarzenie pozycji komponentu z klawiaturą.

0

Witam,
Nawet nie wiem czy dobrze nazwałem temat, ponieważ w google nie wiedziałem pod jakim zapytaniem szukać, jeśli źle proszę kompetentną osobę o poprawę.
Ale od początku postanowiłem pobawić się trochę "kojarzeniem" przyciśnięcia strzałki z pozycją buttona w Aplikacji okienkowej, tylko nie mam pojęcia co zrobić by po przyciśnięciu lub przytrzymaniu strzałki mój button przeniósł się o X pozycji w lewo lub w prawo. Mój kod wygląda następująco:

procedure TForm1.Spadaj1Timer(Sender: TObject);
begin
m:=408;
Button1.Top:=Button1.Top+1;
if (Button1.Top=Button2.Top) and (Button1.Left=Button2.Left) or (Button1.Left=Button2.Left+1) or (Button1.Left=Button2.Left-1) then
  begin
  n:=StrToInt(Label2.Caption)+1;
  Label2.Caption:=IntToStr(n);
  Button1.Top:=0;
  Button1.Left:=Random(448);
  end;

if Button1.Top > 320 then
  begin
    Button1.Top:=0;
    Button1.Left:=Random(448);
  end;

end;

Ktoś mógłby mi wyjaśnić, bądź wysunąć wskazówki pod jakim zapytaniem mam szukać? Z góry dziękuję :)

3

Najpierw musisz sprawdzić, czy dany przycisk jest wciśnięty czy nie; Do tego celu możesz wykorzystać funkcję Windows.GetKeyState (kliknij w ten link - jest tam opis jak tego używać);

Kody klawiszy strzałek zawarte są w stałych VK_UP, VK_DOWN, VK_LEFT i VK_RIGHT.

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