Ersatz für vk_Add im KeyDown-Ereignis

[juergen]

Hallo zusammen,
ich habe im OnKeyDown-Ereignis folgendes stehen:

Delphi-Quellcode:

procedure TMain01.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = vk_Add then
...

Das hat den Nachteil, dass ich NUR die Plustaste vom Num-Block verwenden kann.
Ich würde gern beide Möglichkeiten nutzen, also auch die Plustaste rechts neben dem "ü".
Beide Tasten haben den ASCII-Wert #43.

Wie kann man denn beide Tasten im KeyDown-Event abfragen?
Also irgendwie #43 in einen Word-Wert umwandeln, oder?

Schon mal Danke vorab!

[Neutral General]

Hi,

Genau. Und das kannst du mir Ord('+') tuen oder ganz einfach abfragen ob die Taste = $2B. ;)

Gruß
Neutral General

[juergen]

@Neutral General,
danke für deine Antwort.
Diese beiden Varianten hatte ich schon probiert, allerdings dann mit der Konstante $6A.
Die Bedingung wird aber nicht ausgeführt (mit keiner der beiden möglichen Tasten) :(

[SirThornberry]

du hast einen kleinen Gedankenfehler. Du schreibst bei dir haben beide Tasten den Ascii-Wert....
Das kann nicht sein. Eine Taste kann nicht den gleichen Wert haben wie eine andere Taste. Und es geht hier auch nicht um den Ascii-Wert weil eine Taste nichts (zumindest wenig) damit zu tun hat was beim Druck dieser dargestellt wird. Daher bekommst du im OnKeyDown auch für das kleine 'a' und das große 'A' den gleichen Wert weil beides die gleiche Taste ist.
Bei mir hat übrigens die + Taste auf dem Nummernblock den Tastencode 107 und die + Taste neben der Enter Taste den Wert 187

[Neutral General]

Hi,

So gehts bei mir:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if (Key = $BB) or (Key = VK_ADD) then
    ShowMessage('!');
end;

[SirThornberry]

das liegt daran das $BB was anderes ist als $2B :wink:

[Neutral General]

Ja.. das komische ist ja:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Caption := IntToHex(Ord(KEy),2);
end;

da kommt $2B raus wenn man auf + drück... Deswegen dachte ich zuerst $2B. :P

[juergen]

Vielen Dank, beide Varianten funktionieren! :thumb:
Mein jetziges Problem:
Ich habe hier eine ASCII-Tabelle DOS Codepage 850(von Wikipedia).
Da steht für das Pluszeichen der Wert 043. Ich hatte nun gedacht, das wäre mein Wert den ich suche.
Wie ich nun weiß, ist das ja falsch.

@SirThornberry,
gibt es eine Tabellen-Norm nach der ich suchen könnte, um deine genannten Werte zu finden?

@Neutral General,
ich habe hier eine Tabelle, da stehen die Virtual Keys drin mit deren Konstanten.
Bei vk_Add steht bei mir allerdings -> $6B :gruebel:
Gibt es eine Tabelle wo ich die Konstanten für die Tasten finde?

:dp:

[SirThornberry]

Zitat:

Zitat von Neutral General

Ja.. das komische ist ja:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  Caption := IntToHex(Ord(KEy),2);
end;

da kommt $2B raus wenn man auf + drück... Deswegen dachte ich zuerst $2B. :P

*g* du bist drauf rein gefallen :wink: OnKeyPress liefert das Zeichen welches anhand der gedrückten Tasten entsteht. OnKeyDown hingegen liefert den Tastencode.

[uligerhardt]

Ich weiß, das Thema ist uralt. Aber falls doch noch mal jemand drüberstolpert: Das Ding ($BB) heißt VK_OEM_PLUS.