HTMLViewer D2009 Scrollen?

**cherry**

Hi

Toms hat mich auf folgende Kompo aufmerksam gemacht:

HTMLViewer D2009

Ich brauche die Komponente für mein kleines Chat Programm. Hab mal folgenden Testcode erstellt:

Delphi-Quellcode:

			
var

  Form1: TForm1;

  HtmlCode: TStringList;

.

.

.

procedure TForm1.AddHTML(Text: AnsiString);

begin

  HtmlCode.Delete(HtmlCode.Count-1);

  HtmlCode.Delete(HtmlCode.Count-1);

  HtmlCode.Add('

');

  HtmlCode.Add(Text);

  HtmlCode.Add('</body>');

  HtmlCode.Add('</html>');

  HtmlViewer1.LoadFromString(HtmlCode.Text);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  AddHTML(Edit1.Text);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  HtmlCode := TStringList.Create;

  HtmlCode.Add('<html>');

  HtmlCode.Add('<body bgcolor="#FFFFFF">');

  HtmlCode.Add('Hallo');

  HtmlCode.Add('</body>');

  HtmlCode.Add('</html>');

  HtmlViewer1.LoadFromString(HtmlCode.Text);

end;

Jetzt möchte ich aber, dass immer der letzte Eintrag angezeigt wird, sprich ganz nach unten Scrollen.
Aber wie stell ich das an?

HTMLViewer D2009 Scrollen?

HTMLViewer D2009 Scrollen?

Forumregeln