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?

[Luckie]

Benutze visuelle Komponenten nicht zur Datenhaltung. Wenn du den Text ohne Zeilenumbrüche brauchst nimm eine normale Variable vom Typ String.

[PeterPanino]

Ich brauche das nicht zur Datenhaltung, sondern der User soll das zur Dateneingabe benutzen.

LG

[Luckie]

Dann ist es doch egal. Er guckt sich die Daten nur an und bei einem Zeilenumbruch sieht man ja nicht die Steuerzeichen. Deswegen verstehe ich jetzt nicht, was du willst.

[PeterPanino]

Zitat von Luckie:

Deswegen verstehe ich jetzt nicht, was du willst.

Verhindern, dass der User ein LineBreak eingibt.

[Björn Ole]

Delphi-Quellcode:

procedure TSchöneForm.SchönesMemoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
    Key := #0;
end;

[Luckie]

Entferne doch die Zeilenumbrüche wieder, wenn du die Daten weiterverarbeitest.

[Jens Hartmann]

Was Luckie meint,

wäre z.B. sowas...

http://www.delphipraxis.net/17346-wi...-loeschen.html

zu diesem Thema findest Du hier im Forum viel Beiträge.

Gruß Jens

[PeterPanino]

Zitat von Björn Ole:

Delphi-Quellcode:

procedure TSchöneForm.SchönesMemoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
    Key := #0;
end;

Danke, das funktioniert aber nicht beim Einfügen aus der Zwischenablage - deswegen habe ich ja OnChange verwendet.

[PeterPanino]

Zitat von PeterPanino:

Verhindern, dass der User ein LineBreak eingibt.

Das war etwas ungenau ausgedrückt. Das trifft es besser:

Ein TEdit mit WordWrap oder ein Verfahren, das ein solches simuliert.