查人人中国名人网身份证号码后六位大全:delphi高手请进,在form1的中间部分画出一条长90的红色横线的代码?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 07:39:22
在form1的中间部分画出一条长90的红色横线的代码
(窗体的中间)
这是我的一道作业题!
请大家帮忙 谢谢 大家了!
(窗体的中间)
这是我的一道作业题!
请大家帮忙 谢谢 大家了!
考虑到美观与功能，所以用到的用到的组件有colorbox,paintbox,panel.panitbox1放在panel上面。
线条的颜色可以随时改变。所以增加了其灵活性。
var
x,y:integer;
begin
x := 50;
y := Height div 2;
paintbox1.Canvas.Pen.Color := colorbox1.Selected;
paintbox1.Canvas.Brush.Color:=colorbox1.Selected;
paintbox1.Canvas.MoveTo(x,y);
paintbox1.Canvas.LineTo(x + 90, y);
end;
比如你在窗体上放一个按钮Button1, 在Button1的OnClick事件中输入:
x := (Width - 90) div 2;
y := Height div 2;
with Canvas do
begin
Pen.Color := clRed;
MoveTo(x, y);
LineTo(x + 90, y);
end;
就可以了. 当然, 别忘了在过程头部声明x, y. 我没调试, 你自己调试吧