Wie kann ich ein Return aus Memo entfernen?

[Tryer]

Das 'Return' lässt sich in OnKeyPress unterdrücken:

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = Char(VK_RETURN)) and (GetKeyState(VK_SHIFT) < 0) then
  begin
    Key := #0;
    // DoSomething;
  end;
end;

Der Druck auf 'F9' ruft kein OnKeyPress hervor, dessen Behandlung ist also in OnKeyDown gut aufgehoben.

MfG,
Tryer