Memo1 feld

[lbccaleb]

vllt solltest du noch mal genau erklären was du meinst??!!

also das hier:

Delphi-Quellcode:

procedure TForm1.speedbutton1Click(Sender: TObject);
  begin
    memo1.lines.text := memo1.lines.text + #13#10;
  end;

//sollte eigentlich den ein "enter" nach deinem text einfügen

aber vllt verstehen wir dich auch nur falsch??


und willst du nur den cursor noch am ende gleich sehen?? dann vllt auch so:

Delphi-Quellcode:

procedure TForm1.speedbutton1Click(Sender: TObject);
var
carpos: tpoint;
  begin
    memo1.lines.text := memo1.lines.text + #13#10;  //fügt nach dem text ein "enterzeichen" ein
    memo1.SetFocus; //setzt den focus wieder auf memo

    carpos.x := 0; //setzt die variable carpos.x auf den zeilenanfang im memo
    carpos.Y := memo1.Lines.Count; //setzt die variable carpos.y auf das memo text ende
    memo1.CaretPos := carpos; //weißt dem memo cursor die variable carpos zu
  end;

edit:
beschreibung eingefügt