我将在TAdvStringGrid 中画的一些内容转到paintbox中显示，由于内容太多，在TAdvStringGrid 中可通过scrollbar滚动浏览，但在paintbox只能显示一部分，好像paintbox中没有scrollbar的功能，不知怎么解决？谢谢各位了！

試試把 TPaintBox 放在 TScrollBox 裏面 這樣只要 TPaintBox 的 Height/Width 超過 TScrollBox 的 Height/Width 那 TScrollBox 的 Scrollbar 會自動出現

加了TScrollBox还是不行。

小弟想您得在 TAdvStringGrid 的 OnTopLeftChanged 事件中 將 Grid 的內容畫在 TPaintBox 上

unit PlanPreview; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, AdvGrid,Printers, Grids, Jpeg,BaseGrid, SnPanel, SnButton; type TPagePreview = class(TForm) SnPanel1: TSnPanel; SnPanel2: TSnPanel; SnButton1: TSnButton; PaintBox1: TPaintBox; PrinterSetupDialog1: TPrinterSetupDialog; SnButton2: TSnButton; SnButton3: TSnButton; ScrollBox1: TScrollBox; procedure PaintBox1Paint(Sender: TObject); procedure SnButton1Click(Sender: TObject); private asg:TAdvStringGrid; { Private declarations } public constructor Create(AOwner:TComponent; AStringGrid:TAdvStringGrid); { Public declarations } end; var PagePreview: TPagePreview; implementation {$R *.dfm} //asg是传递过来的参数 constructor TPagePreview.Create(AOwner:TComponent; AStringGrid,:TAdvStringGrid); begin inherited Create(AOwner); asg := AStringGrid; end; procedure TPagePreview.PaintBox1Paint(Sender: TObject); begin asg.PrintPreview(PaintBox1.Canvas,PaintBox1.ClientRect); end; //打印的代码 procedure TPagePreview.SnButton1Click(Sender: TObject); var r:trect; quarterpage:trect; begin printersetupdialog1.execute; with Printer do begin BeginDoc; r:=canvas.cliprect; quarterpage:=rect(0,0,(r.right-r.left) shr 1,(r.bottom-r.top) shr 1); setmapmode(canvas.handle,mm_lometric); dptolp(canvas.handle,r,2); asg.PrintDraw(canvas,quarterpage); EndDoc; end; end; end. 这是我的源码，我做的一个TAdvStringGrid通用的打印窗口