如何开发的界面能够适用不同的分辨率(10分)

  • 主题发起人 erbbchen
  • 开始时间
E

erbbchen

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样在不同的分辨率下窗口上的控件大小能够自动调节
 
用RXLib套件
 
有个小巧的控件叫TResizer.
 
呵呵 在D6中就可以呀
把Scaled设置为False
:cool:
给点分吧!!!
qbtxx
 
const
Orignwidth=800;
Orignheight=600;

Procedure TForm1.FormCreate(Sender:TObject);
begin
Scaled:=true;
if(screen.Width<>Orignwidth) then
begin
height:longint(herght)*longint(screen.height)div orignheight;
width:=longint(width)*longint(screen.width)div orignwidth;
scaleby(screen.width,orignwidth)
end;
end;
 
多人接受答案了。
 
顶部