procedure TForm1.Button1Click(Sender: TObject);
var
AWidth,AHeight: integer;
I,IBeginX,IBeginY: integer;
begin
AWidth := Width; //form1 的宽
AHeight := Height; //form1 的高
I := 150; //半径大小,可以作为一个输入变量自己设定
IBeginX := round(AWidth/2)-I;
IBeginY := round(AHeight/2)-I;
with Canvas do
begin
Pen.Mode := pmBlack; //填充圆的颜色
Ellipse(IBeginX,IBeginY,IBeginX+2*I,IBeginY+2*I); //画圆
end;
end;
