如何解决屏幕分辨率的问题

Question

我写的程序是在1024*768的分辨率下写的
拿到800*600上就满屏，问高手如何解决该问题
谢谢

Answer 1

form.scale:=false;
设计小于800*600的窗口

Answer 2

最好的方法，可能就是程序启动时首先检测系统分辨率，如果不符合要求，就更改为符合要求的。比如你的分辨率是1024X768，用户是800X600。那就在程序启动的时候把系统分辨率更改。在程序退出的时候再把分辨率修改回原来状态。我觉得这样可能是最好，最完美，最省事的方法了。
我的方法根据高手的指点定义两个全局变量。SCREENX，SCREENY：INTEGER；
procedure Tmainwinform.FormCreate(Sender: TObject);
var
  sx, sy: Integer;
  DevMode: TDeviceMode;
begin
  sx := GetSystemMetrics(SM_CXSCREEN); //分辨率宽
  sy := GetSystemMetrics(SM_CYSCREEN); //分辨率高
  //用于在程序结束时把分辨率 改回原始状态
  screenx := sx; //分辨率宽
  screeny := sy; //分辨率高
  if (sx <> 1024) and (sy <> 768) then
  begin
    DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
    DevMode.dmPelsWidth := 1024;
    DevMode.dmPelsHeight := 768;
    ChangeDisplaySettings(DevMode,0); //设置新的显示参数
  end;
程序关闭时把分辨率修改为原来状态：
procedure Tmainwinform.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  sx, sy: Integer;
  DevMode: TDeviceMode;
begin
         sx := GetSystemMetrics(SM_CXSCREEN); //分辨率宽
         sy := GetSystemMetrics(SM_CYSCREEN); //分辨率高
        if (sx <> screenx) and (sy <> screeny) then
        begin
           DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
           DevMode.dmPelsWidth := screenx;
           DevMode.dmPelsHeight := screeny;
           ChangeDisplaySettings(DevMode,0); //设置新的显示参数
        end;
    actiON:=cafree;
end;

Answer 3

你把你的form的大小不要让读者调不是就可以了吗？？
把borderstyle调到bsnone不是就好了吗？？