AdvMemo mit maxlines oder maxcount

[tobias2207]

hi,

kennt jemand eine möglichkeit wie man bei dem AdvMemo von tms eine Zeilenbegrenzung hinbekommt? ich möchte bsp. nur 10 Einträge machen können..

für welche die das advmemo nicht kennen:

es ist eigentlich nur ein Memo mit einer syntaxhervorhebung und spaltenansicht also müsste da die funktion auch fürs memo gehen sollen..


danke.

[toms]

Hallo,

Es gibt keine direkte Möglichkeit die max. Anz. Lines einzustellen.
Müsstest Zeichen Restriktionen im OnKeyDown usw einbauen.

[BrunoT]

Hi Tobias,

Wenn es sich um ein Memo handelt, dann geht es so:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
 if memo1.Lines.Count>10 Then
 memo1.Lines.Delete(10);
end;

mfg

BunoT

[tobias2207]

hi,

vielen dank.. hatte gestern mir noch so etwas ähnliches geschrieben..

mfg