Delphi 的绘图功能[5] - 获取 Canvas 对象
2008-02-16 23:25
337 查看
在窗体上添加 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;
//执行前后对比图:
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- Delphi 的绘图功能[1] - TCanvas 的类成员
- HTML5通过调用canvas对象的getContext()方法来获取绘图环境
- jquery获取不到canvas绘图对象？？？
- Delphi 的绘图功能[15] - 再谈文字的高度与宽度: Canvas.TextExtent
- android 利用canvas 获取裁切或者合并后的bitmap对象
- delphi绘图canvas及应用
- html5之canvas绘图 1.写字板功能
- 15-03-常用对象API(String类-常见功能-获取_1)
- Delphi 的绘图功能[13] - TBrush 类
- Delphi 的绘图功能[14] - 图像类
- Delphi 的绘图功能[12] - TPen 类(下) : 学习橡皮线
- 关于跨进程使用回调函数的研究：以跨进程获取Richedit中RTF流为例（在Delphi 初始化每一个TWinControl 对象时，将会在窗体 的属性(PropData)中加入一些标志，DLL的HInstance的值与HOST 进程的HInstance并不一致）
- Delphi 的绘图功能[8] - TextOut、TextWidth、TextHeight
- Delphi 的绘图功能[10] - TFONT 类
- HTML5之Canvas绘图——获取Canvas画布的图片
- 常见对象_正则表达式的获取功能
- Delphi 的绘图功能[1] - PolyBezier、PolyBezierTo
- 15-04-常用对象API(String类-常见功能-获取_2)
- Delphi 的绘图功能[3] - 矩形类图形
- 如何获取onDraw里的canvas对象？或者说如何在activity中获取自定义类中的canvas？