Prawie natychmiast potrzebuję sterowania z klawiatury przy użyciu klawiszy strzałek!!! Pilnie proszę o pomoc
0
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)