Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Bei Memofeld Zeilen anzahl Beschränken

    Delphi
    by p-lab, 19. Aug 2004
  hi nochmal,
  
  Besser du benutzt RichEdit, da kannst du mit RichEdit.WantReturns:=False einen weiteren Zeilensprung unterdrücken:
  
  procedure TForm1.RichEdit1Change(Sender: TObject);
  begin
  If RichEdit1.Lines.Count>21 then RichEdit1.WantReturns:=False;
  end;
  
  ps: du musst den Wert bei weniger als 21 zeilen natürlich wieder auf True zurücksetzen
• Forum: Object-Pascal / Delphi-Language

  Re: Bei Memofeld Zeilen anzahl Beschränken

    Delphi
    by p-lab, 19. Aug 2004
  Hi,
  
  das ist zwar keine optimale Lösung, aber vielleicht hilft es dir weiter:
  
  procedure TForm1.Memo1Change(Sender: TObject);
  begin
  If Memo1.Lines.Count>22 then Memo1.Lines.Delete(Memo1.Lines.Count-1);
  end;
  
  mfg p-lab