Naja, die Lösung ist glaub ich absolut nicht optimal, das muss ich teilweise mit mind. 10 RichEdits machen und das auch noch beim Resizen.
Der Code, der mir gestern mitgeteilt wurde, ist da glaub ich etwas perfomanter, wenn auch noch nicht optimal:+
Delphi-Quellcode:
var Scrollinfo: TScrollInfo;
begin
Scrollinfo.cbsize := sizeof(Scrollinfo);
Scrollinfo.fmask := SIF_RANGE;
if GetScrollInfo(RichEdit1.Handle, SB_VERT, Scrollinfo) then
label1.Caption:=inttostr(Scrollinfo.nMax)
else
label1.caption:=inttostr(RichEdit1.ClientHeight);
end;
Danke trotzdem