![]() |
If Key = #107
Hallo,
habe eine Abfrage gebastelt, die jedoch nur teilweise funktioniert.
Delphi-Quellcode:
Die Return-Taste funktioniert, die Plus-Taste jedoch nicht. Nach der Recherche dürfte jedoch #107 für die +-Taste korrekt sein. Oder doch nicht. Ich bitte um Hilfe.
if Key = #13 then //RETURN-Taste
begin ShowMessage('Bin hier 1'); usw. end else if Key = #107 then //+-Taste auf dem Num-Block. begin ShowMessage('Bin hier 2'); usw. end Danke, Luckner |
AW: If Key = #107
Nach meinem Test ist + die 43 und - die 45. Egal ob Nummernblock oder nicht.
Delphi-Quellcode:
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin ShowMessage(Ord(Key).ToString); end; |
AW: If Key = #107
Versuch mal
Delphi-Quellcode:
Gruss, Jörn
..........
else if Key = VK_Add then //+-Taste auf dem Num-Block. begin ShowMessage('Bin hier 2'); usw. end |
AW: If Key = #107
VK_ADD ist auch die 107. + ist aber laut Windows 10 Bildschirmtastatur die 43.
|
AW: If Key = #107
Im OnKeyPress kommt lediglich das +-Zeichen an. Willst du den Tastencode, dann musst du das im OnKeyDown machen.
|
AW: If Key = #107
Der Unterschied ist, das eine ist der Virtuelle Tastencode, das andere der ASCII-Wert des Zeichens.
Im KeyPress bekommt man die ASCII-Werte in KeyDown/KeyUp bekommt man die virtuellen Tastencodes. Im KeyPress kann man dementsprechend einfach abfragen:
Delphi-Quellcode:
Im KeyDown/KeyUp:
if Key = '+' then
...
Delphi-Quellcode:
if Key = VK_ADD then
... |
AW: If Key = #107
Zitat:
Es gibt tatsächlich Leute, die haben und wollen keinen Nummernblock :thumb: |
AW: If Key = #107
Zitat:
Wenn er im KeyDown auf 43/45 abprüft funktioniert es weder mit noch ohne Nummernblock. Umgekehrt bringt VK_ADD im KeyPress nichts. Zitat:
Ohne Numblock geht gar nicht :? |
AW: If Key = #107
Danke für die Hinweise. 43/45 in KeyPress funktionieren nicht. Ebenfalls '+' nicht. Warum funktioniert #13 in KeyPress so gut?
Luckner |
AW: If Key = #107
Zitat:
Ggf. "KeyPreview" der Form auf true setzen? |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:12 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 by Thomas Breitkreuz