Beepen des Edits unterdrücken im OnKeyPress und OnKeyDown

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); 
begin 
  if Key = #13 then 
  begin 
    Key := #0; 
  end; 
end;

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
var 
  mgsTemp: TMsg; 
begin 
  if Key = VK_RETURN then
  begin 
    PeekMessage(mgsTemp, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
  end;
end;

Grüsse, Daniel