WantReturns funktioniert nicht wie erwartet

[haentschman]

...du sagst es. Manchmal muß man nur darüber reden.

In der BasisForm:

Delphi-Quellcode:

procedure TfoBase.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Assigned(Self.ActiveControl) then
  begin
    if (Key = #13) and (not ((Self.ActiveControl.Parent is TcxCustomMemo) or
                             (Self.ActiveControl is TDBRichEdit) or
                             (Self.ActiveControl is TRichEdit) // hat gefehlt :-(
                             )) then
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
      Key := #0;
    end;
  end;
end;

Danke fürs Zuhören.

Zitat:

statt einfach TAB zu drücken.

Manche User sind auf die ENTER in Masken fixiert.