當窗口被遮蓋或者窗口最小化時，所畫的圖將被擦除，不知為什么。希望各位朋友指教。謝謝！ 代碼如下： type TFrmMain = class(TForm) Pb:TpaintBox; MovePt:TPoint; Drawing:boolean; procedure TFrmMain.PBMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin MovePt := point(X,Y); PBPaint(self); end; procedure TFrmMain.PBMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Drawing then begin Drawing := False; end; end; procedure TFrmMain.PBPaint(Sender: TObject); begin if Drawing = false then begin pb.Canvas.MoveTo(MovePt.X,MovePt.Y ); end else if Drawing = true then begin pb.Canvas.LineTo(MovePt.X,MovePt.Y); end; end; procedure TFrmMain.PbMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Drawing := True; end;

If you want to use a TPaintBox, you need to draw in the OnPaintEvent. Maybe you should use a TImage instead, TImage will repaint itself since your painting is stored internally in a bitmap.

謝謝william 的解答，TIMAGE可以重畫，但是當圖像過大時會髮生圖像延遲現象，不知怎樣解決。 還有您說的draw in the OnPaintEvent 我的PBPaint就是TPaintbox的OnPaintEvent，但不知為何就是不行，可能我寫的不對，能詳細講一下嗎?

謝謝william 的解答，我用過TIMAGE，所畫圖像不會被擦除，但是當分辨率變大時繪圖不是很流暢，TPAINTBOX則很流暢，不知為什么，請指教。

引言: 謝謝william 的解答，我用過TIMAGE，所畫圖像不會被擦除，但是當分辨率變大時繪圖不是很流暢，TPAINTBOX則很流暢，不知為什么，請指教。

我以為因為你的畫圖方式令到 TImage 要經常重繪吧，我想或者改為用 TPaintBox 配合 TBitmap 會比較好。在 MouseMove 時同時在 PaintBox 及 Bitmap 的 Canvas 上畫圖，在 PaintBox 的 OnPaint 時再把 Bitmap 給 Copy 過去。當然 Bitmap 在高分辨率時比較吃資源，不用 Bitmap ，可用自訂的 record 去記錄要畫的位置，或用 metafile 等。