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?