可否在没有canvas的空件里面画图,不如画线,园
解决方案 »
- 什么都不说,拿起狼牙棒对starluck的PP狂插一万下
- 能不能在delphi开发的ocx控件中插入WAV格式的声音资源文件
- 关于第二次开发通讯控件的问题,急急请帮帮忙!
- TName = type string;
- 关于tlist的问题(很菜,请帮帮忙)
- 打印机是虚拟的行不行!
- 我们在2000下开发了一套程序,但是在98编译通过,运行时提示试图用不正确的格式加载程序?????
- 不知那位大侠有reportmachine的最新版的源码,
- 打印DBGrid表格的标题问题!
- VB,VB.NET 连接数据库方式的疑问!
- 如回答,马上结帐!-->怎么获取指定表中指定字段的字段类型????TadoConntion里有这样的函数吗?
- BDE下载
比如在button上画var newCan:TCanvas;
begin
newcan:=TCanvas.Create;
newcan.Handle:=getdc(button1.Handle);
newcan.TextOut(1,1,'i love you');
newcan.Free
HDC dc = GetDC(BitBtn1->Handle);
TCanvas * can = new TCanvas();
can->Handle = dc;
can->Pen->Color = clLime;
can->MoveTo(100,100);
can->LineTo(200,200) ;
can->Rectangle(Rect(0,0,BitBtn1->Width,BitBtn1->Height));
can->TextOutA(10,10,"name");
delete can;
ReleaseDC(BitBtn1->Handle,dc);