随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253


在窗体上添加 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;

//执行前后对比图:


posted on 2008-02-16 23:25  万一  阅读(...)  评论(...编辑  收藏