+ -
当前位置:首页 → 问答吧 → delphi用什么控件画弧?

delphi用什么控件画弧?

时间:2011-12-24

来源:互联网

delphi用什么控件画弧?

作者: ll_2363808169   发布时间: 2011-12-24

求求好心人帮帮我

作者: ll_2363808169   发布时间: 2011-12-24



var
  btn: TButton;
const
  y1 = 10;
  y2 = 80;


{先设置画笔画刷}
procedure TForm1.FormCreate(Sender: TObject);
begin
  Canvas.Pen.Width := 2;
  Canvas.Pen.Color := clRed;
  Canvas.Brush.Color := clWhite;
end;




{绘制弧线, 参数同上}
procedure TForm1.Button5Click(Sender: TObject);
begin
  btn := TButton(Sender);
  Canvas.Arc(
  btn.Left, y1,
  btn.Left + btn.Width, y2,
  btn.Left + btn.Width, y1 + (y2-y1) div 2,
  btn.Left + btn.Width div 2, y1
  );
end;

作者: zhangqiwen   发布时间: 2011-12-24

http://topic.csdn.net/t/20021027/17/1129260.html

作者: chhrsas   发布时间: 2011-12-24

没有直接用控件画的么

作者: ll_2363808169   发布时间: 2011-12-24

可以 DelphiX ,看你有没特殊必要

作者: zhangqiwen   发布时间: 2011-12-24

热门下载

更多