早上好，我的问题又来了,只剩十分，祝分十分健康

Question

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;各位仁兄，小弟我用上面的代码，对于自适应分辩率好像不起作用,并且我边缘有些控件就没有显示
以前1024*768,改成800*600不行了,各位help me!小弟我真的真的没有可用分,只能深深的祝大家身体健康,事业进步

Answer 1

height := longint(height) * longint(screen.height) div ScreenHeight;
这段代码你想得到什么效果？

Answer 2

你这样做对于Form上的很多控件是不能调整的，要么你把所有的控件的大小位置都调整一遍，如果控件比较少，可以考虑加个panel,groupbox什么的，然后设置相应的Align.

Answer 3

只改form的大小，controls的大小如何适应！

Answer 4

To leesheng(小胜) 
                     你说的很对，不过问题尽无人............