发信人: simonwall@GZ()
整理人: teleme(2001-04-15 13:28:31), 站内信件
|
标 题: 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]
|
|