OnKeyPress Denkfehler ?

**Nils_13**

Hi,

erstaunlich bei was für Kleinigkeiten man manchmal Probleme hat: Ich muss in OnKeyPress überprüfen, ob Pfeiltaste oben gedrückt wurde. Deshalb schaute ich kurz in die Windows.pas:

markieren

Delphi-Quellcode:

			{$EXTERNALSYM VK_LEFT}

VK_LEFT = 37;

{$EXTERNALSYM VK_UP}

VK_UP = 38;

{$EXTERNALSYM VK_RIGHT}

VK_RIGHT = 39;

{$EXTERNALSYM VK_DOWN}

VK_DOWN = 40;

Dann müsste das nun doch so aussehen ? Es tut sich leider nichts.

markieren

Delphi-Quellcode:

			procedure TRazor.KeyPress(Sender: TObject; var Key: Char);

begin

  if Key = #39 then

    ...

end;

**Looper**

muss da nicht if (key = #38) then stehen?

mfg Looper

**DeddyH**

Scheint mir auch so.

**Nils_13**

Ah, das kam weil ich es zum Testen mal auch noch mit rechts probiert habe und rechts ist #39. Auch Pfeiltaste-rechts kann man vergebens drücken ohne dass was passiert.

**bitsetter**

Hi,

VK_UP ist doch kein Zeichen IMHO müsste man dafür das Ereignis onKeyDown nehmen.

**Die Muhkuh**

Richtig,

den ein Char(#38) wäre ein &

**Nils_13**

Hm, ich arbeite gerade mit OpenGL. Dann könnte ich doch bei OnKeyDown eine Boolean-Variable auf True setzen und im Render (=Idle) einfach prüfen ob die auf True steht und dementsprechend was machen, bei OnKeyUp setz ich es dann wieder auf False.

Danke!

OnKeyPress Denkfehler ?

OnKeyPress Denkfehler ?

Re: OnKeyPress Denkfehler ?

Re: OnKeyPress Denkfehler ?

Re: OnKeyPress Denkfehler ?

Re: OnKeyPress Denkfehler ?

Re: OnKeyPress Denkfehler ?

Re: OnKeyPress Denkfehler ?

Forumregeln

Looper Registriert seit: 28. Sep 2007 Ort: Hamburg 131 Beiträge Delphi XE2 Professional	#2 Re: OnKeyPress Denkfehler ? 23. Jan 2008, 20:37 muss da nicht if (key = #38) then stehen? mfg Looper
	Zitat

DeddyH Registriert seit: 17. Sep 2006 Ort: Barchfeld 27.549 Beiträge Delphi 11 Alexandria	#3 Re: OnKeyPress Denkfehler ? 23. Jan 2008, 20:39 Scheint mir auch so. Detlef *"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen."* (Albert Einstein) Dieser Tag ist längst gekommen
	Zitat

Nils_13 Registriert seit: 15. Nov 2004 2.647 Beiträge	#4 Re: OnKeyPress Denkfehler ? 23. Jan 2008, 20:43 Ah, das kam weil ich es zum Testen mal auch noch mit rechts probiert habe und rechts ist #39. Auch Pfeiltaste-rechts kann man vergebens drücken ohne dass was passiert.
	Zitat

bitsetter Registriert seit: 17. Jan 2007 1.169 Beiträge Turbo Delphi für Win32	#5 Re: OnKeyPress Denkfehler ? 23. Jan 2008, 20:44 Hi, VK_UP ist doch kein Zeichen IMHO müsste man dafür das Ereignis onKeyDown nehmen. Gruß bitsetter "Viele Wege führen nach Rom" Wolfgang Mocker (geb. 1954), dt. Satiriker und Aphoristiker
	Zitat

Die Muhkuh Registriert seit: 21. Aug 2003 7.332 Beiträge Delphi 2009 Professional	#6 Re: OnKeyPress Denkfehler ? 23. Jan 2008, 20:45 Richtig, den ein Char(#38) wäre ein & Manuel Blog reactivated
	Zitat

Nils_13 Registriert seit: 15. Nov 2004 2.647 Beiträge	#7 Re: OnKeyPress Denkfehler ? 23. Jan 2008, 20:47 Hm, ich arbeite gerade mit OpenGL. Dann könnte ich doch bei OnKeyDown eine Boolean-Variable auf True setzen und im Render (=Idle) einfach prüfen ob die auf True steht und dementsprechend was machen, bei OnKeyUp setz ich es dann wieder auf False. Danke!
	Zitat