精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>其他>>Re: 请问如何在桌面上绘图?

主题:Re: 请问如何在桌面上绘图?
发信人: simonwall@GZ()
整理人: teleme(2001-04-15 13:28:15), 站内信件

标  题: Re: 请问如何在桌面上绘图?
发信站: 网易虚拟社区 (Fri Jul 21 13:01:21 2000), 站内信件

procedure TForm1.Button1Click(Sender: TObject);
var
   DesktopCanvas : TCanvas;
begin
  DesktopCanvas := TCanvas.Create;
  Desktopcanvas.Handle := GetDc(Hwnd_Desktop);
  DeskTopCanvas.CopyRect(Rect(1, 1, 100, 100), Image1.Canvas, Rect(1, 
1, 100, 100));
end;


--
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.104.51.161]

[关闭][返回]