在程序中动态生成memoview控件，但是内容高度无法确定，现遇到这样一个问题， 

如果memoview控件中内容很长，超过了一页，我将memoview的属性stretchmode设置为smActualHeight后，

预览时，发现memoview控件内容满满一页，并且有些内容显示不了，而不会自动分到下一页进行显示。

像这种情况，该如何设计将memoview内容分割到二页呢？还请各位指点一下思路，谢谢！

給您提示一下實作思考方向
1.報表裡放置FrxPictureView,連結到DataSet(ClientDataSet)的bmp欄位,欄位型態為TBlobField
2.把Memo的內容依固定長度(報表裡FrxPictureView的Height),用迴圈處理
透過http://www.delphipages.com/tips/thread.cfm?ID=257
這種方式切割存到bmp檔.
3.把上面存的檔檔用append載入到ClientDataSet裡
4.也就是說ClientDataSet已存多筆裁切好的bmp圖像

大概示意的程式碼是這樣(沒經過實測,可能要你自己調校)
(以下是採圖像裁切,若採用文字格式,大概思維方式差不多,請自行處理)

[code delphi]
procedure PrepareReport;
const
perHeight=500;
var
bmp,bmp1: TBitmap;
i:Integer;
btop,bcount:Integer;
stream:TMemoryStream;
begin
bcount:=Memo1.Height div PerHeight;
bmp := TBitmap.Create;
try
if TreeView1.Width>500 then
bmp.Width:=500
else
bmp.Width := perHeight;
bmp.Height := 500;
bmp.Canvas.Lock;
try
Memo1.Perform(WM_PRINT, bmp.Canvas.Handle, PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT);
finally
bmp.Canvas.UnLock;
ClientDataSet1.Close;
ClientDataSet1.CreateDataSet;
for i:=0 to bcount do
begin
btop:=i*PerHeight;
bmp1:=TBitmap.Create;
bmp1.Width:=bmp.Width;
bmp1.Height:=PerHeight;
bmp1.Canvas.CopyRect(Rect(0,0,Memo1.Width,PerHeight),bmp.Canvas,Rect(0,btop,Memo1.Width,btop PerHeight));
stream:=TMemoryStream.Create;
bmp1.SaveToStream(stream);
ClientDataSet1.Append;
TBlobField(ClientDataSet1.FieldByName('bmp')).LoadFromStream(stream);
ClientDataSet1.Post;
bmp1.Free;
stream.Free;
end;
end;
finally
bmp.Free;
end;
[/code]

編輯記錄

Band 的 AllowSplite 與 Stretched 屬性設為 True 就可以了。

編輯記錄

谢谢二位指点，我再试试！