怎么显示在TpaintBox中画的图形！为什么不显示呢？

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  Canvas.Pie(10, 10, 100, 100, 12, 12, 12, 12);
end;end.

Answer 1

PaintBox1Paint 响应 OnPaint 事件