RichEdit Linesanzahl

[Poring]

Huhu,

Ich wollte mal fragen, wie man die Linesanzahl im RichEdit einstellen kann?
(Nicht durch den Objektinspektor)
Mit MaxLength ging es nicht...

Mfg

[taaktaak]

Was willst du damit erreichen?
Grundsätzlich kann die Anzahl der ZEICHEN limitiert werden, dass dies mit der ZEILENANZAHl auch möglich wäre, ist mir nicht bekannt. Dafür müsstest du wohl eine eigene Überwachung schreiben.

[Poring]

Am Anfang hat das RichEdit ja nur Lines[0] zur verfügung, wenn man mehr haben will muss man ja im Objektinspektor bei Lines die Zeilenanzahl erhöhen. Nur weis ich noch nicht von anfangan wie vielen Zeilen ich benötige, da dies Variable ist.

[Matze]

Hallo,

du kannst mittels

RichEdit.Lines.Add('neue Zeile'); jederzeit die Zeilenanzahl erhöhen. Oder habe ich dich falsch verstanden? Willst du die Zeilenanzahl limitieren und eine feste vorgeben?

[Poring]

Ich wollte eine feste Vorgeben, wenn das geht.

[Gehstock]

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Richedit1.Lines.Count > 2 then  //max. Linienanzahl
 begin
  ShowMessage('Maximale Textlänge erreicht');
  Key :=#0;
end;
end;

ungeprüft

[Poring]

Ich will die max. Lineanzahl ja festlegen nicht überprüfen.
Naja, wenn dies nicht möglich ist, geht es eben nicht

Danke euch.

[Blackheart]

Was verstehst Du denn unter festlegen.

[Gehstock]

Nichts anderes macht der von mir gepostete Code er läst in dem Beispiel nur 2 zeilen zu