Mehrzeiliges TEdit bzw. LineBreak in TMemo verhindern?

[PeterPanino]

Hallo,

ich benötige ein mehrzeiliges TEdit, d.h. ein TEdit mit WordWrap, wobei der umgebrochene Text natürlich kein LineBreak (#13#10) enthalten soll.

Da ich keine entsprechende Komponente gefunden habe, habe ich versucht, eine solche mit einem TMemo zu simulieren, bei dem das Einfügen eines LineBreak verhindert wird:

Delphi-Quellcode:

mmo1.WordWrap := True;

procedure TForm1.mmo1Change(Sender: TObject);
var
  CP: Integer;
begin
  if Pos(#13#10, mmo1.Text) > 0 then
  begin
    CP := mmo1.SelStart;
    mmo1.Text := StringReplace(mmo1.Text, #13#10, '', [rfReplaceAll]);
    mmo1.SelStart := CP - 2;
  end;
  mmo1.Width := mmo1.Width + 1;
  mmo1.Width := mmo1.Width - 1;
end;

Das ist aber nur ein umständlicher Workaround. Hat jemand eine bessere Idee?