delphi 画圆点
答案:2 悬赏:70 手机版
解决时间 2021-12-02 07:44
- 提问者网友：谁的错
- 2021-12-01 11:08
delphi 画圆点
最佳答案
- 五星知识达人网友：动情书生
- 2021-12-01 11:53
如果你想画一个直径为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;
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;
全部回答
- 1楼网友：轻雾山林
- 2021-12-01 13:08
把窗体其他透明，然后放在屏幕中间，然后在onpaint里面写上Canvas.Ellipse(坐标1x，坐标1y，坐标2x，坐标2y);
这个是画椭圆，圆就是椭圆，只要你这2个点的坐标算好。
这个是画椭圆，圆就是椭圆，只要你这2个点的坐标算好。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯