RichEdit, memo m.f.

den her skulle virke i både richedit og memo

procedure TForm1.RichEdit1Change(Sender: TObject);
var
  itemp: Integer;
begin
  with RichEdit1 do
  begin
    // Move to the last line:
    SelStart := Length(Text);
    Perform(EM_SCROLLCARET, 0, 0);
  with RichEdit1 do
    begin
      itemp := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0);
      SelStart := Perform(EM_LINEINDEX, itemp + 1, 0);
      Perform(EM_SCROLLCARET, 0, 0);
    end;

    // Set the focus on the RichEdit:
      SetFocus;
  end;
end;

Ja, det virker.

Findes der ikke en kortere måde at skrive det på ??

der må jeg være dig et svar skyldig...men der findes vel altid en måde at optimere en kode på.

Richedit1.lines.add('lala');
//du kan køre det styk hver gang du har tilføjet en ny linie
Richedit1.Perform(EM_SCROLL, SB_LINEDOWN, 0);