RichEdit zum ende scrollen

[kingflo]

Hallo... ich habe ein echt blödes problem, ich habe , bzw baue gerade einen jabber chat.

Und damit der eine User in Rot und der andere in Blau schreibt benutze ich folgende procedure:

Delphi-Quellcode:

procedure TChatWindow.AddColoredString(ARichEdit: TRichEdit; AText: string;
  AColor: TColor);
begin

  ARichEdit.Lines.Add('');

  with ARichEdit do
  begin
    SelStart := Length(Text);
    SelAttributes.Color := AColor;
    SelAttributes.Size := 10;
    SelAttributes.Name := 'Verdana';
    SelText := AText;
  end;

end;

So das blöde ist aber,wenn ich mit dem anderen User etwas mehr schreibe, so dass die scrollbar gebrauch wird, dann ist die nachricht zwar ganz unten da, aber nicht immer gleich zu lesen, weil man dann noch immer nach unten scrollen muss, und dass will ich nicht.

Ich habe schon vielesversucht, aber irgendwie geht das nie richtig. Ich hatte gehofft, dass ich einfach den selStart auf die letzte zeile legen kann, aber das bringt irgendwie alles nichts.
Hat da zufällig jemand ne gute idee?

[Flocke]

Zitat:

Zitat von kingflo

Ich hatte gehofft, dass ich einfach den selStart auf die letzte zeile legen kann, aber das bringt irgendwie alles nichts.
Hat da zufällig jemand ne gute idee?

Normalerweise sollte das gehen, allerdings muss HideSelection ausgeschaltet sein.

[kingflo]

HideSelection ist aus. Aber daran lag es leider nicht.

[SirThornberry]

so gehts:

Delphi-Quellcode:

SendMessage(RichEdit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);

[kingflo]

Ja cool so gehts danke...