|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/29 21:20:36 |
标题: |
如何使窗体中各种组件的大小随着窗体的大小变化而按比例变化啊? |
浏览:854 |
|
加入我的收藏 |
楼主: |
如何使窗体中各种组件的大小随着窗体的大小变化而按比例变化啊?
----------------------------------------------
- |
作者: |
|
2004/3/29 21:31:53 |
1楼: |
在以下两个事件中加入以下代码就可以实现了 procedure TForm1.FormCreate(Sender: TObject); begin FormOldWid:=Form1.Width; end;
procedure TForm1.FormResize(Sender: TObject); begin ScaleBy(Form1.Width,FormOldWid); FormOldWid:=Form1.Width; end;
----------------------------------------------
-
|
|