HDC h;
h:=GetDC(0);
然后就可以画了吧。
h:=GetDC(0);
然后就可以画了吧。
解决方案 »
- Delphi中怎样将TreeView树中的某个节点隐藏并可以恢复显示,不能用删除的方法
- 如何在多个unit中调用excel单元格读写函数
- 如何将虚拟按键限制在应用程序内?
- 关于字符串转换问题
- DCOM在windows2003中怎么配置???
- 安装C++Builder后Delphi出现调用问题
- 逻辑型的‘性别’字段,如何在DBGrid显示为‘男’或‘女’。(MDB数据库)
- 为什么这段代码在编译时会提示:Error 200: Division by zero.
- 如何将改动后的系统Vcl文件编译到自己的包里?谢谢!
- string-->word??????????
- 关于form的一个小问题,但是很怪!
- 关于使用控件的问题?
canvas:Tcanvas;
canvas:=Tcanvas.create;
canvas.handle:=GetDC(0);
接下来,想干啥就干啥吧
var canv:tcanvas;
begin
canv:=tcanvas.Create ;
canv.Handle :=getdc(0);
canv.Pen.Color :=clred;
canv.brush.Color :=clgreen;
canv.brush.Style :=bssolid;
canv.Rectangle (0,0,screen.Width ,screen.Height );
end;