如何使窗体打开的时候象word那样最大化,并且占满整个桌面(任务栏除外)?
并且不论显示器的分辨率大小!

解决方案 »

  1.   

    设置from的windowstate属性为wsMaximized自动适应分辨率的代码我这里有马上给你
      

  2.   

    //定义分辨率
    const
        ScreenHeight: integer = 1024;
        ScreenWidth: integer = 768;
    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;
      

  3.   

    screen.Height           screen.Width