各位大哥请帮忙

Question

怎样解决delphi在1024*768环境下开发的界面在800*600环境下不会有些东西看不到

Answer 1

在窗体的 resize 事件中用代码进行调整

Answer 2

var
  x,y:integer;
  sysinfo:Tsysteminfo;
  str:string;
begin
getsysteminfo(sysinfo);
x:=getsystemmetrics(0);
y:=getsystemmetrics(1);
str2:='显示器分辨率:   '+ inttostr(x)+'*'+inttostr(y);
end;       

Answer 3

要获得屏幕分辨率和设置它都是非常容易的，然而要让各种form上的控件自适应非常难，几乎不能实现。

Answer 4

假设你在800*600的分辨率下设计的form,第一步：
inplementation
const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  scaled := true;
  if (screen.width <> ScreenWidth) then
  begin
    height := longint(height) * longint(screen.height) div ScreenHeight;
    width := longint(width) * longint(screen.width) div ScreenWidth;
    scaleBy(screen.width, ScreenWidth);
  end;
end;下一步，要让每个子控制的字体改变到合适的大小：
type
  TFooClass = class(TControl); { needed to get at protected }
                               { font property }var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
        (NewFormWidth div OldFormWidth) *
        TFooClass(Controls[i]).Font.Size;
end;