RichEdit Format

[p80286]

If frage mich wofür das gut sein soll.
Richedit ist eigentlich eine verkappte (und kastrierte) Textbearbeitung, die dafür gedacht ist auszudruckenden Text zu erfassen. D.h. die "Zeile" ist nur eine sehr vergängliche Möglichkeit der Textstrukturierung, da je nach Font(größe) und Papierformat die Zeile unterschiedlich lang ist.

Wenn Du Wert auf Fett, Kursiv und unterschiedliche Textfarben legst, solltest Du vllt. synedit verwenden.

Für Deine zweite Anforderung gibt es Format oder falls Du gerne selbst bastelst xxxtostr mit nachträglicher Aufhübschung.

Gruß
K-H

Zitat von Ykcim:

Zu1: Wenn ich auf die ENTER Taste drücke, dann springt er in die zweite Zeile - die nicht sichtbat ist... Das möchte ich verhindern.

Zum besseren Verständnis:
Du hast einen RichEdit von dem nur eine Zeile sichtbar ist?

Warum nutzt Du nich TEdit?

[Popov]

@Ykcim

Ich hab mich mal mit dem Thema näher beschäftigt und kann behaupten, dass es das was du suchst nicht in der Form gibt oder ich es nicht gefunden habe.

Was ich letztendlich gemacht habe und du es auch machen kannst ist Tricksen.

Dein erstes Problem kannst du so lösen:

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then Key := #0;
end;

Damit fängst du das Enter an. Wenn du den Zeilenumbruch komplett abfangen willst, also auch den durch Einfügen von Text, dann mußt du auch das abfangen.

Dein zweites Problem ist etwas komplexer, aber auch nicht unmöglich. Nur mußt du dann das machen was du eigentlich mit Delphi machen willst: programmieren. Einfach die Texteingabe überwachen. Bei der ersten Eingabe einer Zahl den Startpunkt merken, dann auch den Endpunkt merken, also die erste Nichtzahl. Schon hast du die letzte Zahl die eingegeben wurde. Jetzt das ganze formatieren und den Cursor anpassen.

[lbccaleb]

Zu 2.

Du kannst die Zahl vorher formatieren, und dann in das RichEdit als Text einfügen:

Delphi-Quellcode:

function PointDelimiter(Argument: string; TrennChar: char): string;
var n,i: integer;
begin
  Result := Argument;
  n := Length(Result);
  if n > 3 then begin
    i := 0;
    While n > 0 do begin
      inc(i);
      if (i >= 3) and (n > 1) then begin
        Insert(TrennChar, Result, n);
        i := 0;
      end;
      dec(n);
    end;
  end;
end;


RichEdit1.Text := PointDelimiter('1234567890', '.');

Edit:
Zu 1.:
Du kannst mit stringreplace (http://www.delphibasics.co.uk/RTL.as...=StringReplace) die #13 im gesamten String austauschen gegen zB. ein Leerzeichen. Oder auch gar nichts..