如何在屏幕上直接绘图?(而不是在某个FORM上)(100分)

  • 主题发起人 主题发起人 xman
  • 开始时间 开始时间
X

xman

Unregistered / Unconfirmed
GUEST, unregistred user!
要求如题.
 
呵呵,深度历险有这样一个例子,还是动画……
 
desk_spr.zip 演示如何直接在Windows 95桌面上做精灵动画

自己去下载吧
 
var
DeskTopDC: HDc;
DeskTopCanvas: TCanvas;
begin
DeskTopDC := GetWindowDC(GetDeskTopWindow);
DeskTopCanvas := TCanvas.Create;
DeskTopCanvas.Handle := DeskTopDC;
DeskTopCanvas.Ellipse(...);
...
end;
 
GetDC(0) 得到的是 desktop 的 DC,
要简单的可以这样:
aCanvas: TCanvas;
DC: HDC;

DC := GetDC(0);
aCanvas := TCanvas.Create;
aCanvas.Handle := DC;
下来就随便了。
 
多人接受答案了。
 
后退
顶部