OnKeyPress verarbeitet ENTER nicht an

[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.