怎么设置Edit组件的大小与位置

如何设置Edit组件的大小与位置？
如何设置组件Edit1的大小（width，height）与位置（left，top）？

能不能设置？

[解决办法]
位置(Left Top )是可以的.但不能调高度,因为Edit是单行输入 .
如果你要调高,用多行,如Memo
[解决办法]
在设计时设置属性，或者代码设置：

with edit do
begin
top:=100;
left:=100;
width:=100;
end;


[解决办法]
属性栏都有的， 高度也是可以设置的， 不过没什么意义，根据字体变化.
[解决办法]
高度跟随字体，如果非要弄出给人感觉比对应字体大的输入框，你可以弄张输入框背景图，然后把Edit设置弄成无边框。
[解决办法]

探讨

在设计时设置属性，或者代码设置：

with edit do
begin
top:=100;
left:=100;
width:=100;
end;

[解决办法]
楼主那么多奖牌，会不知道你们说的这些，肯定是有内幕
[解决办法]
刚测试了，你的代码可以，除非你的edit1没创建
[解决办法]
你没有放置edit控件吧.
[解决办法]

探讨

引用:

刚测试了，你的代码可以，除非你的edit1没创建


验证了一下你的结论，完全正确：
用create语句创建出来的edit就可以设置left和top等属性了，
而在设计界面时直接放上去的edit不能设置，否则报错（如前）。

我的代码是：
var edit1:tedit;
procedure TForm1.Button……

[解决办法]
放了控件是可以的，这个很常用的。 本来你没特别需要去自己创建的话，不是可视快速开发了。
新建一个工程，在窗体上放个edit， 双击窗体
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Left:=100;
Edit1.Top :=100;
end;
这个是很常用的，难道我理解错了。
[解决办法]
楼主的Delphi象是外星版的，怪事多多。或者，楼主是外星的
[解决办法]
edit1:=tedit.create(form1);
后面加上
edit1.parent:=form1;
[解决办法]

探讨

edit1:=tedit.create(form1);
后面加上
edit1.parent:=form1;

[解决办法]
单行输入框不能调整高度，只能位置调整。
[解决办法]

探讨

引用:

单行输入框不能调整高度，只能位置调整。


你错了，我加上parent语句后edit的宽度和高度都能设置，显示出来也如此。

我的试的程序的代码如下：


procedure TForm1.Button1Click(Sender: TObject);
begin
edit1:=tedit.create(form1);
……

查看更多 下一篇