Delphi 的繪圖功能[5] - 獲取 Canvas 對象

　在窗體上添加 Panel1、PaintBox1 和 Button1, 代碼如下:

procedure TForm1.Button1Click(Sender: TObject);
var
　cvs: TCanvas;
begin
　{PaintBox1 就像窗體一樣, 也有 Canvas 屬性}
　PaintBox1.Canvas.Brush.Color := clRed;
　PaintBox1.Canvas.FillRect(PaintBox1.ClIEntRect);
　{像 Panel1 這樣沒有 Canvas 屬性的控件, 也可以繞道獲取}
　cvs := TCanvas.Create;
　cvs.Handle := GetDC(Panel1.Handle);
　cvs.Brush.Color := clBlue;
　cvs.FillRect(Panel1.ClIEntRect);
　cvs.Free;
end;//執行前後對比圖: