Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Einbinden von Pfeiltasten (https://www.delphipraxis.net/112523-einbinden-von-pfeiltasten.html)

counterskiller 22. Apr 2008 22:12


Einbinden von Pfeiltasten
 
Hallo,

ich habe folgendes problem:
Ich möchte in mein Programm aktionen mit pfeiltasten einfügen.
Gibts da was, was ihr mir geben könnt???

Bsp wenn die pfeiltaste nach unten drücke soll sich der button um 1pxl nach unter verschieben

danke counterskiller

ghost007 23. Apr 2008 00:08

Re: Einbinden von Pfeiltasten
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hi,
das is eigentlich ganz einfach ;) hab dir mal was in den anhang gepackt.

MfG - Ghost007

toms 23. Apr 2008 05:24

Re: Einbinden von Pfeiltasten
 
Dazu muss du KeyPreview des Formulares auf True setzen und im OnKeyPress resp. OnKeyDown -Ereignis des Formulares die gedrückte Taste ermitteln

counterskiller 23. Apr 2008 15:51

Re: Einbinden von Pfeiltasten
 
erstmal vielen dank!!

Noch eine frage: Wie kann ich bei einem druck einer buchstabentaste etwas machen lassen.
zb. wenn ich "k" drücke passiert was. Ist das schwieriger??

mfg

xy124 23. Apr 2008 18:57

Re: Einbinden von Pfeiltasten
 
ich mach das in meinen kleinen PC-Spielen immer so:
Delphi-Quellcode:
//im Timer mit möglichst klienem Intervall
if getasynckeystate(VK_up) < 0 then ... // wenn hoch gedrückt ist...
if getasynckeystate(ord('K')) < 0 then ... // wenn 'K' gedrückt ist...
//^^achtung bei ord die buchstaben immer groß schreiben!!!

Fussball-Robby 23. Apr 2008 19:04

Re: Einbinden von Pfeiltasten
 
Dann steuerst du das Spiel aber auch weiter, wenn dein Formular garnicht ausgewählt ist.
Und wieso eigentlich komliziert, wenns auch einfach geht? KeyPreview auf True, und ins OnKeyPress:
Delphi-Quellcode:
  if Key = 'k' then ShowMessage('Wuppdi');
Mfg

xy124 25. Apr 2008 12:12

Re: Einbinden von Pfeiltasten
 
hab ich noch garniocht gemerkt, das das ding auch im hintergrund läuft

thx... :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:02 Uhr.

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