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?