界面问题！？

Question

编写了一个数据库程序！
在15寸显示器（800*600）的模式下，编排应用程序界面的结构！
如果程序是在17寸显示器（1024*768）的模式下运行，编排的结构就只会在15寸大
小位置上显示界面内容！
反之，17寸到15寸，则不能全部显示17寸的界面！如何解决了？

Answer 1

自适应分辨率
scaled:=true;
scaleby(screen.width , orignwidth);

Answer 2

也可用代码实现呀!!!!不过JinJazz的更简单

Answer 3

我也有相同的问题.
请问如果我在一个界面上放了40个image控件,而且它的大小都是固定的(例如:120*81),
现在我要实现在1024*768与800*600显示器上都能正常显示(不要出现滚动条).scaleby(screen.width , orignwidth);可以做到吗?应该在哪里添加呢?谢谢!!!

Answer 4

procedure TfxForm.FormCreate(Sender: TObject);
//定义分辨率
//const
//    ScreenHeight: integer = 800;
//    ScreenWidth: integer = 600;
//var
//    x, y: LongInt;
begin
//    self.scaled := true;
    //窗体可以缩放
//    x := getSystemMetrics(SM_CXSCREEN);
//    y := getSystemMetrics(SM_CYSCREEN);
    //程序运行时获取目标机器的屏幕分辨率
//    if (x <> ScreenHeight) or (y <> ScreenWidth) then
    //目标机器的屏幕分辨率与作者机器的屏幕分辨率不同
//    begin
//        self.height := self.height*x DIV ScreenHeight;
//        self.width := self.width*y DIV ScreenWidth;
  //      scaleBy(x,ScreenHeight);
        //调用窗体的scaleBy函数，将窗体大小变为初始大小的x/ ScreenHeight倍。
        //这是本程序的关键技巧，同时缩放的包括窗体上各组件和字体。
    //end;
end

Answer 5

有点用，不过不是很好用，
状态栏、grid的宽度与字体比例会失调

Answer 6

一张1000*600的图片放在image上.
  是不是没有办法缩小?