Korišćenje tastera na tastaturi?

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Evo tek sam počeo da radim pascal i prvi put se susrećem sa Lazarus okruženjem pa mi treba mala pomoć. Tražio sam na google i nisam uspeo da nađem.

Dakle, imam sliku koja se pomera gore do neke vrednosti kada kliknem neki button (aktivira se timer). E sad, ja hoću da se ta slika pokrene kada pritisnem npr. enter ili space.
Da li je to moguće i kako?

Timer mi je: Timer1
Slika je: bullet
Dugme za aktivaciju timera je: BtnGo

I treba mi još da pomeram sliku (neku drugu, ne tu što ide gore) sa strelicama na tastaturi. Dakle, držim levo i slika ide levo, drzim desno i ide desno (bez gore i dole) i tako dok ne dođe do neke granice (zida).

Hvala

• 2Ovo se svidja korisnicima: ThePhilosopher, respectzr
  
  Registruj se da bi pohvalio/la poruku!

Za formu postavi Property "KeyPreview" na True.
I koristi događaje "OnKeyPress" ili "OnKeyDown".

Primer za OnKeyPress:
if Key = #13 then uradi_nesto

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Odlično radi! Svaka čast! Hvala puno Dakle ovo je nešto osnovno a ja ću nadograđivati po svojoj potrebi. Hvala još jednom

P.S ako možeš da mi pošalješ tu listu kodova za tastere

• 1Ovo se svidja korisniku: respectzr
  
  Registruj se da bi pohvalio/la poruku!

Korisni linkovi:

http://forum.lazarus.freepascal.org/index.php?topic=12682.0
http://wiki.lazarus.freepascal.org/LCL_Key_Handling
http://lazarus-ccr.sourceforge.net/docs/lcl/lcltype/index-2.html

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Ali sad imam jedan problem, držim npr. strelicu desno da pomeram object u desno i kada stisnem "Space" (aktivira Timer) object prestane da se kreće, tj. držim strelicu desno ali ovaj prestane da se kreće. Dakle, bilo koji taster da stisnem dok držim neki, taj će se prekinuti. Npr. držim "Space" da puca i kad stisnem strelicu levo/desno on prestane da puca.
Evo taj deo Koda koji:
procedure TSpaceShooter.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin  if Key=VK_LEFT then bullet.Left := bullet.Left - 10;  if Key=VK_RIGHT then bullet.Left := bullet.Left + 10; Case Key of VK_LEFT : spaceship.Left := spaceship.Left - 10; VK_RIGHT : spaceship.Left := spaceship.Left + 10; VK_SPACE : timerBullet.Enabled:=true; End; end;