hoi, ich hab es mal mit folgendem versucht:
Delphi-Quellcode:
procedure TForm1.RichEdit1Change(Sender: TObject);
Var
si: TScrollInfo;
begin
si.cbSize := sizeof(si);
si.fMask := SIF_ALL;
If GetScrollInfo(RichEdit1.Handle, SB_VERT, si) Then
begin
If si.nPos + si.nPage >= si.nMax Then
SendMessage(Richedit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end
else
SendMessage(Richedit1.Handle, WM_VSCROLL, SB_BOTTOM, 0);
end;
es geht darum das die scrollbar am anfang noch nicht existiert, sondern erst wenn der text überläuft erscheint sie, wenn weiterer text hinzugefügt wird, wird aber nicht mit gescrollt, erst wenn ich die scrollbar einmal nach unten geschoben habe, wieso funktionietr das nicht von anfang an das die scrollbar gleich ganz unten ist?