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ę :)