Question

delphi 画圆点

怎么用delphi
在整个屏幕的最中央画一个圆点.

Answer 1

把窗体其他透明，然后放在屏幕中间，然后在onpaint里面写上Canvas.Ellipse(坐标1x，坐标1y，坐标2x，坐标2y);
这个是画椭圆，圆就是椭圆，只要你这2个点的坐标算好。

Answer 2

如果你想画一个直径为4个像素的小圆点，那么
procedure TForm1.Button9Click(Sender: TObject);
var
hd: hDC;
cav: TCanvas;
x,y:integer; // 屏幕的中间坐标
begin
x := Screen.Width div 2;
y := Screen.Height div 2;
hd := GetWindowDC(0);
cav := TCanvas.Create;
cav.Handle := hd;
cav.Ellipse(x-2,y-2,x+2,y+2);
cav.Free;
end;