怎样在屏幕上直接画一个圆(不是在FORM上)!(5分)

F

fengchangli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #1

以前看过一个高手的程序,忘了.

 

D

dz2050

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #2

tscreen

 

F

fengchangli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #3

给段程序行吗?

 

L

lhzzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #4

取到桌面DC〔呵呵，GetDC(0)返回的就是桌面DC），在该DC上画圆。

 

F

fengchangli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #5

麻烦给段程序好吗?
我是刚从VFP转来DELPHI的.

 

L

lhzzj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #6

var
dc: HDC;
can: TCanvas;
begin
dc := GetDC(0);
can := TCanvas.Create;
can.Handle := dc;
can.Ellipse(10,10,100,100);
can.Free;
ReleaseDC(0, dc);

 

F

fengchangli

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #7

3q

 

惊

惊弓之亮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-23

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
Hdc:Thandle;
HBru,Hdpen:Thandle;
mybrush:TLogBrush;
begin
Hdc:=GetDC(0);
mybrush.lbStyle:=BS_NULL;
HBru:=CreateBrushIndirect(mybrush);
Hdpen:=SelectObject(Hdc,HBru);
Ellipse(hdc,100,100,200,200);
end;
给分吧,呵~~!