5,386
社区成员
发帖
与我相关
我的任务
分享全屏显示问题：使form中的控件（如Edit、StringGrid）随form大小的变化而变化？
怎样使form中的控件（如Edit、StringGrid）随form大小的变化而变化？要求：1、初始化后的form不能用鼠标拖动缩小，但可以拖动扩大和最大化 2、拖动扩大和最大化后，Text空间的高度不变，宽度随之变大 3、StringGrid得高度和宽度都随之变化。
给个程序实例参考一下，谢谢各位了！
给个程序实例参考一下，谢谢各位了！
...全文
请发表友善的回复…
发表回复
ailibuli 2004-03-31
- 打赏
- 举报
対不起、更正：
form1.AutoScroll := false;
form1.AutoSize := false; //這様才可以拖动FORM
form1.AutoScroll := false;
form1.AutoSize := false; //這様才可以拖动FORM
bxh2dai 2004-03-31
- 打赏
- 举报
panel,就象楼上说的
menggirl 2004-03-31
- 打赏
- 举报
1 用Panel
吧
2 自己控制 (麻烦,效果最好)
吧
2 自己控制 (麻烦,效果最好)
lzy6204 2004-03-31
- 打赏
- 举报
好象不行吧，除非自己写控件
ailibuli 2004-03-31
- 打赏
- 举报
例：把一個FORM分成四部分、
Panel1.Align := alTop;
Panel2.Align := alLeft;
Panel3.Align := alBottom;
Splitter1.Align := alLeft;
Panel4.Align := alClient; //注意：最後放属性是”alClient”
然後StringGrid放在Panel4上...
設定FORM的最小：(form1的Constraints中)
form1.Constraints.MinHeight
form1.Constraints.MinWidth
参考：
form1.AutoScroll := false;
form1.AutoSize := true;
Panel1.Align := alTop;
Panel2.Align := alLeft;
Panel3.Align := alBottom;
Splitter1.Align := alLeft;
Panel4.Align := alClient; //注意：最後放属性是”alClient”
然後StringGrid放在Panel4上...
設定FORM的最小：(form1的Constraints中)
form1.Constraints.MinHeight
form1.Constraints.MinWidth
参考：
form1.AutoScroll := false;
form1.AutoSize := true;
hlb1111 2004-03-31
- 打赏
- 举报
这个问题有点难
xhg0418 2004-03-31
- 打赏
- 举报
mark
aiunong 2004-03-31
- 打赏
- 举报
gz
hujinger 2004-03-31
- 打赏
- 举报
用Panel控件，将你的各种控件都加上去。会自动随着变化大小的
hhzqf1980 2004-03-31
- 打赏
- 举报
用panel
