不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

一个初学者的问题。大家路过进来看一下！

楼主almeydifer（）2005-05-11 13:38:36 在 Delphi / VCL组件开发及应用提问

就是：
1.在Delphi里如何在程序启动时，让主窗口最大化.
2.让窗口内的控件随着窗口大小的改变，而做出成比例的改变。

分数少了，希望大家不要介意。

祝大家事业顺利！身体健康！问题点数：30、回复次数：19Top

1 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2005-05-11 13:41:42 得分 2

1： Form1.WindowState:=wsMaximized;
2：以前的贴子有很多讨论的，自己去搜一下Top

2 楼fengzhengren（风筝）回复于 2005-05-11 13:43:22 得分 5

1、将form的windowstate属性设为wsMaximized。

2、一般你说的这情况都用align属性来控制,比如你左边放一个dbgrid,align属性设为alLeft,右边放个dbgrid,属性设为alclient,这样你的窗口变它们的大小和位置自动跟着变.

还有一种方法就是在窗口大小变时,调用控件的scaleby,也就是长和宽各扩大或缩小多少倍.但这样很麻烦,效果也不会好,你想一个按钮跟着扩大几倍,变成一个大按钮,效果不会好.

我一般用align来控制,只要窗体上的一些主要控件布局好了效果就很好了.

Top

3 楼lzy6204（为了忘却的记忆）回复于 2005-05-11 13:44:25 得分 2

1.form.windowstate := wsMaximized;
2.控件的Anchors都设为trueTop

4 楼wgl758（千子）回复于 2005-05-11 13:46:00 得分 1

form里的winstatus属性可以更改最大化问题.设为max...Top

5 楼wgl758（千子）回复于 2005-05-11 13:48:35 得分 0

所有控件的安anchors设为这真Top

6 楼wgl758（千子）回复于 2005-05-11 13:51:37 得分 0

fengzhengren(风筝) 的办法更有效

Top

7 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 14:01:23 得分 16

我见过一个用DELPHI写的局域网聊天程序,很不错的!控件类似于JAVA里的布局Top

8 楼Goldteerfei（爱情没有谁对不起谁，只有谁不懂得的珍惜！）回复于 2005-05-11 14:14:09 得分 0

问题已经都解决了吧。Top

9 楼almeydifer（）回复于 2005-05-11 14:17:57 得分 0

我正在尝试各位的方法：
1。控件的Anchors都设为true：好像有时候最大化窗口时。控件会消失，还原时就又出来了。
2。 Align正在摆弄。

哈哈。
Top

10 楼tdtjjiao（学习学习再学习）回复于 2005-05-11 14:23:37 得分 2

1.form.windowstate := wsMaximized;Top

11 楼admas（古道西风）回复于 2005-05-11 14:39:32 得分 2

把Form的windowstate属性设为wsMaximized
把控件的Align属性设为alClient，或放上面的为alTop，下面为alBottomTop

12 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 16:07:55 得分 0

2.先设置相关的Align属性,然后进行编程实现:
procedure TForm1.FormResize(Sender: TObject);
begin
memo1.Top:=0;
//控制面板高度
panel1.Height:=combobox1.Height+8 ;
edit1.Height :=combobox1.Height;
button1.Height:=combobox1.Height;

//控制宽度
combobox1.Left:=1;
edit1.Left:=combobox1.Width;
edit1.Width:=form1.Width-combobox1.Width-button1.Width ;
button1.Left:=combobox1.Width+edit1.Width-10;

//控制上对齐
combobox1.Top:=4;
edit1.Top:=4;
button1.Top:=4;

//控制内容高度
//memo1.Height:=form1.Height-2*panel1.Height-10;
end;
Top

13 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 16:11:04 得分 0

留下电子邮件我给你发一个带有程序的看看
一定是你要的效果
cnhxjt@163.comTop

14 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 16:18:25 得分 0

关于演示程序我放到网上了,你看看是不是你要的效果
http://www.csina.com.cn/Software.asp
第一个就是,嘿嘿,加油Top

15 楼almeydifer（）回复于 2005-05-11 16:24:46 得分 0

cnhxjtoa:

不好意思，我现在才看见你的回复。我的邮箱是：almeydifer@yahoo.com.cnTop

16 楼almeydifer（）回复于 2005-05-11 16:27:21 得分 0

我看到了你的程序了。的确就是我想要的。而且还超出了一些。

: )Top

17 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 16:30:28 得分 0

已发,建议自己先动手试试Top

18 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 16:32:35 得分 0

哈哈Top

19 楼cnhxjtoa（让世界充满爱得从助人为乐开始；学习是一生的课题）回复于 2005-05-11 16:38:29 得分 0

给贴子加分,开玩笑Top