青盲电视剧在线观看:在delphi中如何在窗体中间(居中)加一条红色的直线?(代码)

来源：百度文库编辑：高考问答时间：2024/05/03 07:41:43

谢谢各位高人了! ^_^

我在前面答过了啊, 回去找找:

用TForm的Canvas属性就可以了.
比如你在窗体上放一个按钮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. 我没调试, 你自己调试吧

不过要在窗体改变大小时仍保持居中, 就要用到控件了.

在delphi中如何在窗体中间(居中)加一条红色的直线?(代码) delphi中如何做基类窗体？ delphi中怎么给窗体加背景 delphi 中如何在窗体处于运行状态下删除与加载控件？请问在DELPHI中如何控制其他应用程序的窗体,表单? delphi中如何导入其他窗体文件？在ACESS窗体中插入一个子窗体,如何在主窗体中对子窗体进行筛选? 在窗体中如何添加MSComm控件在VB中如何分割窗体? (高分) 如何在Access中插入子窗体？