BCB 使RichEdit自适应高度

   redt1->Text = "sdfffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff";
     tagSCROLLINFO sInfo;
     redt1->Height =1;
     redt1->ScrollBars = ssVertical;
sInfo.cbSize = sizeof(TScrollInfo);
sInfo.fMask = SIF_RANGE;

GetScrollInfo(redt1->Handle, SB_VERT, &sInfo);

redt1->Height = sInfo.nMax + redt1->Font->Size;