Windows geräusch wegmachen

[Catbytes]

Hallo,

klappt bei mir schon ewig und drei Tage so:

Delphi-Quellcode:

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

So springt er immer auf das nächste Focus-Feld.

Kannst natürlich auch so machen:

Delphi-Quellcode:

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