getdc(0)
取得做图的句柄
然后就可以。(不用我说了吧)
取得做图的句柄
然后就可以。(不用我说了吧)
解决方案 »
- 在delphi中运行时出现out of memory要怎么解决啊?
- 怎样在dbgrid当前记录前插入记录,使pose后在当前位置插入
- Delphi 中如何调用C语言编译的动态连接库---------在线等待!!!!!!
- 在Delphi中使用SQL语句对数据库进行模糊查询的问题,请教高手。
- 为什么程序能在其他机器不能运行
- 还是Access链接表的问题。
- 编写控件的问题
- 急,Peekmessage和Getmessage联合起来用。
- ICQ 和 OICQ 的区别是什么?它们的工作原理是怎样的?...................
- 请教各位:双飞燕鼠标的附加键的响应事件应该如何截取?
- 安装从网上下载的组件时,dcc50.dll文件出错
- 如何在richedit中显示big5和日文字?望赐教!
说清楚一点好把
THANKS
用CANVAS。TEXTOUt就可以了
我想这也太简单了;剩下的工作交给你了
procedure TForm1.Button1Click(Sender: TObject);
var
AC:TCanvas;
DC:THandle;
begin
AC:=TCanvas.Create;
DC:=GetDC(0);
try
AC.Handle:=DC;
AC.Pen.Color:=clRed;
AC.Pen.Width:=10;
AC.Brush.Color:=clYellow;
AC.Rectangle(500,100,700,350);
finally
ReleaseDC(0,DC);
AC.Free;
end;
form1.Refresh;
end;