经常遇到这样的情况,在我们使用Delphi的可视化工具进行UI设计的时候,我们拖拽TEdit或者Label组件,并且在可视化界面上设置它们的长、宽
但是当我们编译和运行程序的时候,却发现真正显示出来的 TEdit或者TLabel组件并不是我们在可视化界面所拖拽的长和宽(显示的“有问题”)
这个时候我们可以参考下面的具体事例解决:
当然这只是其中的一种方法,绝对还有其他的方法,而且我也不知道下面所讲的这种方法是不是很好的,所以还待补充
1.我们在Delphi的可视化界面上需要一个TEdit和TLabel组件,于是我们拖拽了两个组件放在上面,并且设置拖拽设置了长和宽(为了显示清楚,我设置了颜色)
2.但是按 F9 运行的时候显示的却是这样的效果
明显图中显示的 TEdit、TLabel组件(两个黄色区域)根本就不是设置的时候的样子
3.所以需要进行一些设置,在窗体创建的时候去显示的设置这两个组件的大小即可
3.1.将鼠标点击到窗体上,再在Object Inspector的Events中双击窗体的OnCreate方法
3.2.然后跳回到代码编辑部分,开始编辑TForm的创建代码,并在这里面显式的设置那两个组件的大小
procedure TForm1.FormCreate(Sender: TObject); begin edt1.AutoSize:=False; edt1.Height:=241; edt1.Width:=321; lbl1.AutoSize:=False; lbl1.Height:=241; lbl1.Width:=321; end;
特别注意,在设置对应组件的大小之前,一定要首先声明,比如:
edt1.AutoSize:= False;
lbl1.AutoSize:= False;
不过像TListBox等一些组件并不需要再设置长和宽之间设置其AutoSize(像TListBox就没有 AutoSize属性)
这样才能保证显示的效果是想要的
4.然后在运行就可以显示想要的效果
时间: 2024-10-29 10:51:38