Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Wie kann man eine grafik mit den pfeiltasten steuern? (https://www.delphipraxis.net/1376-wie-kann-man-eine-grafik-mit-den-pfeiltasten-steuern.html)

Pyr0cracker 19. Nov 2002 12:51


Wie kann man eine grafik mit den pfeiltasten steuern?
 
hi leute ich fange gerade an zu programmieren und würde gerne ein kleines spiel, was ich jetzt mit gamemaker pro geschrieben, umschreiben.
weiss aber noch nicht wie man einen tastendruck entgegennimmt.
kann mir jemand helfen??
ggf. mit beispiel...?
danke schonmal
:coder: Pyr0cracker :twisted:

Luckie 19. Nov 2002 14:26

Kuck dir mal die Ereignisse deines Formulares und Images an. da müßten dir eigentlich zwei Ereignise ins Auge springen.

sakura 19. Nov 2002 14:46

Zitat:

Zitat von Luckie
Kuck dir mal die Ereignisse deines Formulares und Images an. da müßten dir eigentlich zwei Ereignise ins Auge springen.

So im speziellen die Eigenschaft KeyPreview und die Ereignisse OnKey...

Pyr0cracker 20. Nov 2002 12:02

jo sowas habe ich schon in der hilfe gelesen aber wie kann ich die befehle eingeben? kann mir jemand ein kleines beispiel zeigen?

:coder: Pyr0cracker :twisted:

sakura 20. Nov 2002 12:08

Erstelle mal eine neue Application und "werfe" ein TImage auf das leere Formular. Setze die Eigenschaft KeyPreview des Formulares auf True. In das OnKeyDown Ereignis Deines Formulares kopiere folgenden Code:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_LEFT: begin
      Image1.Left := Image1.Left - 5;
      Key := 0;
    end;
    VK_RIGHT: begin
      Image1.Left := Image1.Left + 5;
      Key := 0;
    end;
    VK_UP: begin
      Image1.Top := Image1.Top - 5;
      Key := 0;
    end;
    VK_DOWN: begin
      Image1.Top := Image1.Top + 5;
      Key := 0;
    end;
  end;
end;
Fertig :!:
...:cat:...


Alle Zeitangaben in WEZ +1. Es ist jetzt 18:11 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz