OnKeyPress verarbeitet ENTER nicht an

[jaenicke]

Also bei mir funktioniert OnKeyPress problemlos, genau wie OnKeyDown und OnKeyUp, sowohl mit Delphi 7 als auch XE7...

// EDIT:
Hier ein Screenshot, falls es jemand nicht glauben möchte:

XE7D7KeyPress.png

// EDIT2:
Ach, ich weiß warum es nicht geht vermute ich...
Ich rate einmal, dass du Key in der Ereignisbehandlung im Formular auch auf das Nullzeichen setzt, oder? Wenn du das tust, kommt der Tastendruck logischerweise auch nicht mehr im Editfeld an, du brichst ihn ja ab...

[Popov]

Stimmt, kann ich bestätigen. Ist aber, wie oben erwähnt, schon etwas länger her. Muss was anderes gewesen sein.

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    ShowMessage('Schöne Grüße von OnKeyDown');
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
    ShowMessage('Schöne Grüße von OnKeyPress');
end;

[Sugar]

Zitat von Popov:

Stimmt, kann ich bestätigen. Ist aber, wie oben erwähnt, schon etwas länger her. Muss was anderes gewesen sein.

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    ShowMessage('Schöne Grüße von OnKeyDown');
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
    ShowMessage('Schöne Grüße von OnKeyPress');
end;

Auch so gibt es keine Reaktion in der Routine....

[Popov]

Das funktioniert aber:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Not (Key IN ['0'..'9',',','-','+','*','/',#8,#27,#13]) then
  begin
    Key := #0;
  end;

  if Key = Chr(VK_RETURN) then
  begin
    Key := #0;
    ShowMessage('Schöne Grüße von OnKeyPress');
  end;
end;

[Sugar]

Zitat von Popov:

Das funktioniert aber:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Not (Key IN ['0'..'9',',','-','+','*','/',#8,#27,#13]) then
  begin
    Key := #0;
  end;

  if Key = Chr(VK_RETURN) then
  begin
    Key := #0;
    ShowMessage('Schöne Grüße von OnKeyPress');
  end;
end;

Ich weiß, nur komischerweise in diesem einen Projekt nicht!

Ich habe jetzt alles rausgeschmissen was nicht nativ Delphi 7 ist. Immer noch das gleiche Ergbebnis. Die Enter-Tase wird weder von den Komponenten noch von der Form ausgewertet.

[BadenPower]

Du hast nicht zufällig noch irgendwo irgendetwas eingebaut, was die Enter-Taste in eine Tab-Taste umwandelt, damit der Focus auf das nächste Element gesetzt wird.

Ansonsten können wir Dir nur weiterhelfen, wenn Du das Projekt einmal komplett in den Anhang packst.

[Popov]

Was soll die Enter-Taste denn machen? Soll sie zum nächsten Element springen? Das macht sie nicht. Das ist nicht ihre Aufgabe. Die Enter-Taste ist zuerst nur eine Taste, mehr nicht.

Wenn du willst, dass sie etwas macht, dann musst du es schon selbst machen.

[Perlsau]

Zitat von Sugar:

Ich weiß, nur komischerweise in diesem einen Projekt nicht!

Dann häng das Projekt doch hier einfach mal als ZIP-Archiv an, damit einer von uns nachschauen kann, wo du diesen ganz blöden Fehler machst. Wie sonst soll man hier von weitem drauf kommen, wenn man gar nicht alles angucken kann, was du da gemacht hast?

Sorry, BadenPower, hatte nicht gesehen, daß du das auch bereits vorgeschlagen hast. Sieh meinen Kommentar einfach als Bekräftigung des deinigen

[BadenPower]

Zitat von Perlsau:

Sieh meinen Kommentar einfach als Bekräftigung des deinigen

[Sugar]

Zitat von jaenicke:

// EDIT2:
Ach, ich weiß warum es nicht geht vermute ich...
Ich rate einmal, dass du Key in der Ereignisbehandlung im Formular auch auf das Nullzeichen setzt, oder? Wenn du das tust, kommt der Tastendruck logischerweise auch nicht mehr im Editfeld an, du brichst ihn ja ab...

Ich frage nur an zwei Stellen die Tastatur ab. Einmal in "FORMKEYDOWN" des Formulares. Dort habe ich folgendes eingefügt:
if key = 13 then showmessage('ENTER');

NULL Reaktion. Alle anderen Tasten werden sauber behandelt...