如何在屏幕最上层画一个点？最好在屏幕正中间。(64分)

学

学习DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #1

如何在屏幕最上层画一个点？最好在屏幕正中间。

 

Q

qianwt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #2

procedure TForm1.FormPaint(Sender: TObject);
var
CenterX, CenterY: Integer;
begin
CenterX := Width div 2;
CenterY := Height div 2;
Canvas.Rectangle(CenterX - 1, CenterY - 1, CenterX + 1, CenterY + 1);
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Invalidate;
end;

 

T

Town

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #3

屏幕最上层是什么意思？ DC?

 

学

学习DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #4

没有反应。

 

学

学习DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #5

就是不管上面有什么程序。都要把这个点显示出来。

 

学

学习DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #6

简单最好。注释一下更好。非常感谢。

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #7

procedure TForm1.Button1Click(Sender: TObject);
var mydc:HDC;
Acanvas:TCanvas;
x,y:integer;
begin
mydc:=getdc(0);
Acanvas:=TCanvas.Create;
Acanvas.Handle:=mydc;
x:=GetSystemMetrics(SM_CXSCREEN) shr 1;
y:=GetSystemMetrics(SM_CySCREEN) shr 1;
ACanvas.brush.Color:=clRed;
ACanvas.Ellipse(x-10,y-10,x+10,y+10);
Acanvas.FillRect(Rect(10,10,100,100));//////
Acanvas.Free;
ReleaseDC(0,mydc);
end;

 

学

学习DELPHI

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-17

• #8

谢谢。基本可以。可不可以加以下注释啊。先给你分