我有一个主窗体,一个子窗体,不用MDI ,用chlidrenForm.parent:=MainForm,来把子窗体和主窗体组合在一起.
我做程序的时候是在1024*768的分辩率下做的,但是到了800*600下运行时真的是太难看了,有些控件都看不到了真是晕死...不知如何解决???
请大家帮帮忙..
我做程序的时候是在1024*768的分辩率下做的,但是到了800*600下运行时真的是太难看了,有些控件都看不到了真是晕死...不知如何解决???
请大家帮帮忙..
Orignwidth=800;
Orignheight=600;procedureTForm1.FormCreate(Sender:TObject);
begin
scaled:=true;
if(screen.width<>orignwidth)then
begin
height:=longint(height)*longint
(screen.height)divorignheight;
width:=longint(width)*longint
(screen.width)divorignwidth;
scaleby(screen.width,orignwidth);
end;
end;
SCALE过程在调整控件宽度和高度的同时,也自动调整控件字体的大小,以适应新的分辨率, 但美中不足的是它并不改变控件的顶点坐标位置,也就是说,该过程不改变控件之间的相对 位置关系。要想调整控件之间的选队相对位置,还需要自己编程实现,有兴趣的读者可试一 试。
var
devmode:tDevicemode;
begin
ifscreen.width<>orignwidththen
begin
ifEnumDisplaySettings(nil,0,devmode)then
begin
devmode.dmfields:=dm_pelswidthORdm_pelsheight;
devmode.dmpelswidth:=orignwidth;{宽度}
devmode.dmpelsheight:=orignheight;{高度}
ChangeDisplaySettings(devmode,0);{更改设置}
end;
end;
end; 以上两种方法在WINDOWS95+DELPHI3.0环境下均已通过,二者相比,前者是主动适应,后者则是被动适应。