If Key = #107

[Luckner]

Hallo,
habe eine Abfrage gebastelt, die jedoch nur teilweise funktioniert.

Delphi-Quellcode:

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

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.

Danke, Luckner

[DieDolly]

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;

[jsp]

Versuch mal

Delphi-Quellcode:

..........
else if Key = VK_Add then //+-Taste auf dem Num-Block.
begin
  ShowMessage('Bin hier 2');
  usw.
end

Gruss, Jörn

[DieDolly]

VK_ADD ist auch die 107. + ist aber laut Windows 10 Bildschirmtastatur die 43.

[Neutral General]

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:

if Key = '+' then
  ...

Im KeyDown/KeyUp:

Delphi-Quellcode:

if Key = VK_ADD then
  ...

[DieDolly]

Zitat von Neutral General:

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:

if Key = '+' then
  ...

Im KeyDown/KeyUp:

Delphi-Quellcode:

if Key = VK_ADD then
  ...

Ich kann ihm oder ihr da nur den Tipp geben auf 43 und 45 zu prüfen. Es gibt nichts schlimmeres als ein Programm, was auf einen Nummernblock angewiesen ist.
Es gibt tatsächlich Leute, die haben und wollen keinen Nummernblock

[Neutral General]

Zitat von DieDolly:

Ich kann ihm oder ihr da nur den Tipp geben auf 43 und 45 zu prüfen. Es gibt nichts schlimmeres als ein Programm, was auf einen Nummernblock angewiesen ist.

Ist jetzt nicht wirklich so als könnte er sich das aussuchen.
Wenn er im KeyDown auf 43/45 abprüft funktioniert es weder mit noch ohne Nummernblock.
Umgekehrt bringt VK_ADD im KeyPress nichts.

Zitat von DieDolly:

Es gibt tatsächlich Leute, die haben und wollen keinen Nummernblock

Natürliche Selektion
Ohne Numblock geht gar nicht

[Uwe Raabe]

Im OnKeyPress kommt lediglich das +-Zeichen an. Willst du den Tastencode, dann musst du das im OnKeyDown machen.

[Delphi.Narium]

Zitat von Luckner:

Hallo,
habe eine Abfrage gebastelt, die jedoch nur teilweise funktioniert.

Delphi-Quellcode:

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

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.

Danke, Luckner

+ auf dem Num-Block hat den Wert 107 (Word) und nicht #107 (Char), #107 ist das kleine k.

Wenn man eine nummerischen Wert für eine Taste ermittelt hat, aber in einer Abfrage ein Zeichen benötigt, so kann man nicht einfach vor den nummerischen Wert ein # setzen, auch dann nicht, wenn das vom Compiler dann so "geschluckt" wird.

Der nummerische Wert der Taste k ist übrigens 75, dies ist aber nicht der Ascii-Wert des auf der Taste befindlichen Zeichens k, zumal diese Taste ja durchaus das K liefern könnte.

Wenn Du auf die Taste + vom Num-Block abfragen willst, so musst Du dazu entweder das Ereignis On...KeyUp oder das Ereignis On...KeyDown verwenden. In diesen beiden Ereignisse muss Du jedoch die Entertaste mit 13 abfragen und nicht mit #13, wie im Ereignis On...KeyPress.

Der abzufragende Wert in den Ereignissen ist bei einigen wenigen Tasten (fast) gleich, so dass man #13 äquivalent zu 13 verwenden kann, bei der Tabulatortaste mit #9 bzw. 9 geht das auch, aber beim überwiegenden Teil der Tasten passt das schlicht und einfach nicht.

Bau Dir mal ein Programm, das im OnKeyUp diesen Quelltext enthält:

Delphi-Quellcode:

procedure Tform1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var
         s : String;
         s2 : String;
begin
  s := '';
  if ssShift in Shift then s := s + 'Umsch + ';
  if ssAlt in Shift then s := s + 'Alt + ';
  if ssCtrl in Shift then s := s + 'Strg + ';
  if ssLeft in Shift then s := s + 'Left + ';
  if ssRight in Shift then s := s + 'Right + ';
  if ssMiddle in Shift then s := s + 'Middle + ';
  if ssDouble in Shift then s := s + 'Double + ';
  s2 := IntToStr(TextToShortCut(AnsiReplaceText(s + Chr(Key),' ','')));
  s := Trim(s);
  s := ReverseString(s);
  if Copy(s,1,1) = '+' then s := Trim(Copy(s,2,Length(s)));
  s := ReverseString(s);
  if s = '' then s := '<leer>';
  Caption := 'Key = ' + IntToStr(Key) + '   -   Shift = ' + s + '   -   ShortCut für Menüs = ' + s2;
end;

Es zeigt Dir in der Caption des Formulares dann die gedrückte Tastenkombination mit den in OnKeyUp abzufragenden Werten an. Das Formular kannst Du auf die Größe der Caption reduzieren.

Der Quelltext ist werde noch ästhetischen oder sonstwie besonderen Kriterien geschrieben, Effektivität ist auch keine Anforderung gewesen, sondern einfach nur: tut was er soll

[Dennis07]

Man sollte hier aber auch bedenken:

EIn Zeilenumbruch unter Windows ist NICHT #13 sondern die beiden Zeichen #13#10 , die nacheinander gedrückt werden!

Das mag ja in 99% der Fälle keinen Unterschied machen, aber in dem einen Prozent kann es das durchaus. Besonders bei Text, der von Linux-oder MacOS-Plattformen kommt (dort ist der Zeilenumbruch nämlich nur #10 ). Auch macht es bei Stringverarbeitungen wie StringReplace einen Unterschied. Benutze auch hier lieber OnKeyDown bzw. OnKeyPress mit VK_RETURN . Da weißt du dann zu 100% sicher, dass es ein Enter ist.