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;
解决方案 »
- 有delphi收徒的吗
- 不好意思求一条SQL语句
- 怎样在dbgrid中的密码这一栏输入字符时显示为*?
- 如何让基于DirectShow开发的播放器能播放CD格式的文件呢?
- 利用电脑通过连接线连接手机发送短信
- 一个财务接口程序遇到的问题,恳请高手指点!!!!!!!!!!!!!!!!!
- 急!怎样才能把十进制转为36进制???在线等待..
- TDataSet在调用open()时,返回值赋给了谁?
- delphi6.0的diagram页有谁使用过?介绍一下,或介绍一下那有相关资料。
- !!!ping 后如何得到结果?即如何才能知道是否能通(程序实现)!
- 高分求救——关于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;