Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Keypressed(ord('ö')) --> wie krieg ich das Zeichen raus? (https://www.delphipraxis.net/30862-keypressed-ord-oe-wie-krieg-ich-das-zeichen-raus.html)

DracoBlue 30. Sep 2004 11:57


Keypressed(ord('ö')) --> wie krieg ich das Zeichen raus?
 
Hallo!

Ich hab nun ein etwas unnormales Problem, glaub ich :-D.

Ich nutze diesen Code
Delphi-Quellcode:
function Keypressed(Wert:word):Boolean;
    var aktkeystate:Word;
    begin
      aktkeystate:=GetKeySTate(Wert);
      if ((aktkeystate=1)or(aktkeystate=0)) then Keypressed:=false else Keypressed:=true;
    end;
Um zu kucken ob eine Taste gedrückt ist.

Das klappt super.

Ich schreibe gerade an einem IngameChat und lasse nebenbei mein Programm laufen.
Wenn man nun Shift+2 drückt ist auf der deutschen Tastatur nen ", --> ich geben nen " aus.
Jedoch weiss ich die ganzen belegungen für die Amerikanischen Tasten nicht.

Gibt es eine Möglichkeit rauszufinden, welches Zeichen ausgegeben werden muss wenn bestimmte tasten gedrückt sind?

Mit freundlichen Grüßen,
Draco

Ultimator 30. Sep 2004 12:14

Re: Keypressed(ord('ö')) --> wie krieg ich das Zeichen ra
 
Du kannst doch (unter XP zumindest, weiß nicht, ob woanders auch) das Tastaturlayout auf Amerikanisch stelen, und das ganze Spiel wiederholen.

DracoBlue 30. Sep 2004 12:16

Re: Keypressed(ord('ö')) --> wie krieg ich das Zeichen ra
 
Jup :-D,

dass Problem ist, dass mein Programm auch in Spanien usw. genutzt wird, das wird schwierig wenn ich für die alle das Tastaturlayout reinhämmern muss :-D.

Dachte es gibt ne Funktion dafür ...


Mfg, Draco

Mephistopheles 27. Apr 2005 19:25

Re: Keypressed(ord('ö')) --> wie krieg ich das Zeichen ra
 
Suchst du eventuell MSDN-Library durchsuchenMapVirtualKey?


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:04 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