在delphi中怎样画一个自定义大小的圆
答案:2 悬赏:20 手机版
解决时间 2021-12-01 21:22
- 提问者网友：夢醒日落
- 2021-12-01 18:30
在delphi中怎样画一个自定义大小的圆
最佳答案
- 五星知识达人网友：怀裏藏嬌
- 2021-12-01 19:24
procedure TForm1.Button1Click(Sender: TObject);
var
radii:integer;
begin
image1.Picture.Graphic :=Nil;
radii:=strtoint(edit1.text); //大小自己定
image1.Canvas.Brush.Color :=clred;
image1.Canvas.Ellipse(0,0,radii,radii);
end;
var
radii:integer;
begin
image1.Picture.Graphic :=Nil;
radii:=strtoint(edit1.text); //大小自己定
image1.Canvas.Brush.Color :=clred;
image1.Canvas.Ellipse(0,0,radii,radii);
end;
全部回答
- 1楼网友：一叶十三刺
- 2021-12-01 20:31
下本教程 自己看去
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯