|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/4/28 10:17:00 |
标题: |
怎样让界面能够在此800*600和1023*768下按相同比例显示? |
浏览:1042 |
|
加入我的收藏 |
楼主: |
我最近刚做完一个小软件,不过我是在800*600分辨率下开发的可装到别人机器上显得很小,请问有什么好方法能让form内的所有可见空间都能按比例显示呢?
还有:要想让Timage内的图片平铺显示怎样设置?
谢了!!!!!!!!!
----------------------------------------------
- |
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2004/4/28 10:52:42 |
1楼: |
这样啊 很麻烦要在formreize中写 首先formcreate 要获取 系统分辨率!
----------------------------------------------
|
作者: |
endo (燕子帝国) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2004/4/28 11:00:24 |
2楼: |
试试看
procedure TF_Main.FormCreate(Sender: TObject); Var FWidth:integer; begin if(Screen.width<> 800)then begin FWidth:=Width; Scaled:=TRUE; Font.Size:=(Width DIV FWidth)*Font.Size;//字体大小调整 ScaleBy(Screen.Width,800); //控件大小调整 Height:=longint(Height)*longint(Screen.Height)DIV 600; Width:=longint(Width)*longint(Screen.Width)DIV 800;//窗口大小调整 end; End;
----------------------------------------------
『惠安人才网』 www.harcw.net
|
作者: |
|
2004/4/29 8:03:58 |
3楼: |
谢谢
----------------------------------------------
-
|
|