var mydc:HDC;
Acanvas:TCanvas;
begin
mydc:=getdc(0);
Acanvas:=TCanvas.Create;
Acanvas.Handle:=mydc;
Acanvas.FillRect(Rect(10,10,100,100));
Acanvas.Free;
ReleaseDC(0,mydc);
end;
Acanvas:TCanvas;
begin
mydc:=getdc(0);
Acanvas:=TCanvas.Create;
Acanvas.Handle:=mydc;
Acanvas.FillRect(Rect(10,10,100,100));
Acanvas.Free;
ReleaseDC(0,mydc);
end;
解决方案 »
- icon图标文件,ExtractIconEx、ExtractIcon方法取应用程序图标问题
- 请大侠帮忙,我用IdUDPServer接收多个客户端的数据包时遇到问题, IdUDPServer.Bindings.Count使终为1,代码如下:
- 因为是新手在线求助 急急啊 200分
- DevExpress PrintSystem 空件的问题请教......在线等
- 请问怎么将两条指定的纪录之中的两个字段加起来,并且保存到其中一条纪录,删除另外一条纪录?
- 谁能给小弟提供一下delphi进行b/s开发的范例以及相关入门书籍,谢谢
- 请问下,这条嵌套查询哪错了???
- 大家都进来帮我看看!程序起动时出错!
- 那位朋友做过类似netmeeting 程序呢?
- 寻找Delphi编程高手-希望与你进行知识交流
- 高分求救——关于savedialog的用法
- 关于combobox组件的使用
dc:hdc;
begin
dc:=getdc(0);
textout(dc,10,10,'hello',5);
releasedc(0,dc);
end;
hdldtp:thandle;
hdcdtp:hdc;
begin
hdldtp:=GetDesktopWindow();
hdcdtp:=GetWindowDC(hdldtp);
TextOut(hdcdtp,500,300,'Welcome to delphi bbs!',22);
ReleaseDC(hdldtp,hdcdtp);
end;
Acanvas:TCanvas;
begin
Acanvas:=TCanvas.Create;
with acanvas do
begin
Handle:=getdc(0);
brush.style:=bsclear;
font.size:=14;
textout(10,10,'hello');
ReleaseDC(0,acanvas.handle);
free;
end;
end;