<ENTER>-Taste für programminterne Befehle nutzen

[himitsu]

Delphi-Quellcode:

// Form.OnKeyDown und Form.KeyPreview=True im Objektinspektor nicht vergessen
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then begin
    // mach was

    Key := 0;  // du hast ja schon was gemacht, also die Standardbehandlung nun verhindern
  end;
end;

oder

Delphi-Quellcode:

// Edit.OnKeyDown
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = VK_RETURN then begin
    // mach was

    Key := 0;
  end;
end;