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:

Zitat von Luckie (Beitrag 1068178)

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:

Zitat von Björn Ole (Beitrag 1068180)

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:

Zitat von PeterPanino (Beitrag 1068179)

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.

[PeterPanino]

Zitat:

Zitat von Jens Hartmann (Beitrag 1068183)

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

Genau das steht ja oben in meinem Code.:|

[p80286]

Es gibt kein mehrzeiliges TEdit!
Dafür ist TMemo zuständig.

Wenn Du aus was für Gründen auch immer keine CR/LF in Deinem Text haben willst, kannst Du diese entweder aus dem TMemo.Text entfernen oder mit Hilfe von String und TLabel/TStaticText Dein mehrzeiliges TEdit simulieren.

Denn irgendwann schlägt sich die Darstellung in einem TMemo auf die Daten im TMemo.Text nieder.

Zitat:

Zitat von Luckie (Beitrag 1068176)

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

Gruß
K-H

[PeterPanino]

@ p80286

hast du den Code ausprobiert, den ich am Anfang im Ausgangsposting reingestellt habe?

[sx2008]

@PeterPanino: Irgendwie bist du gefangen in deiner Idee, du bräuchtest ein mehrzeiliges Editfeld ohne Zeilenumbrüche (was ja schon ein Widerspruch in sich ist).
Du versuchst Sourcecode zu finden wo es eigentlich nötig wäre über die Benutzeroberfläche nachzudenken und zu diskutieren.
"Befreie deinen Geist!" - Na aus welchem Film ist das Zitat?

Was genau soll der Benutzer eingeben?
Warum soll es ihm verboten sein eine neue Zeile einzufügen oder eine bestehende Zeile umzubrechen?
Wäre vielleicht nicht ein Stringgrid viel besser geeignet?

[PeterPanino]

Zitat:

Zitat von sx2008 (Beitrag 1068587)

@PeterPanino: Irgendwie bist du gefangen in deiner Idee, du bräuchtest ein mehrzeiliges Editfeld ohne Zeilenumbrüche (was ja schon ein Widerspruch in sich ist).

Irgendwie bist du gefangen in deiner Idee, du wüsstest besser als ich was ich brauche.*

Glaub mir, ich hab' zu viele Jahre an Erfahrung auf dem Buckel, als dass ich nicht wüsste, was ich brauche ...:)

* "Man wird niemals mehr als 364 KB Arbeitsspeicher brauchen!" (B.G.)

PS: Bald werde ich das Geheimnis lüften ... ;-)

[sx2008]

Zitat:

Zitat von PeterPanino (Beitrag 1068588)

PS: Bald werde ich das Geheimnis lüften ... ;-)

Ich warte ganz gespannt darauf... 8-)

[alzaimar]

Zitat:

Zitat von PeterPanino (Beitrag 1068588)

Irgendwie bist du gefangen in deiner Idee, du wüsstest besser als ich was ich brauche.*

Glaub mir, ich hab' zu viele Jahre an Erfahrung auf dem Buckel, als dass ich nicht wüsste, was ich brauche ...:)

Ein entscheidender Punkt könnte in deiner Erfahrung fehlen: GUI-Elemente sollen 'so wie erwartet' funktionieren. Du willst eine bekannte Eingabemetapher (Texteditor) umbiegen. Das solltest Du nicht tun und ich kenne auch keine Anwendung, die das flächendeckend eingeführt hat, sodaß Du dich darauf berufen kannst.

Allerdings kann es Spezialanwendungen geben, die nur für eine bestimmte Klientel gedacht ist, und die sich ständig mit ihr beschäftigen: Dann kann eine wohldurchdachte neue Eingabemetapher eingeführt werden.

Ich persönlich würde jedoch sehr sehr spartanisch damit umgehen und in diesem Fall lieber ein stinknormales Memo nehmen und die Texte nach einem OnExit formatieren, d.h. Zeilenumbrüche entfernen. Dann sieht der Anwender aktiv, was mit seinem Text geschieht. Dies entspricht dem Grundstatz der visuellen Rückmeldung und Transparenz.

Da Du aber -aufgrund deiner Erfahrung- offensichtlich genau weisst, was Du willst, sind wir wirklich gespannt auf diesen Anwendungsfall: Dazulernen können selbst die ältesten Hasen immer.