delphi - GenoTechs GTSizer组件

Closed. This question does not meet Stack Overflow guidelines。它当前不接受答案。












想改善这个问题吗？更新问题，以使溢出。

5年前关闭。



on-topic





有谁知道像GTSizer这样的第三方组件？看来GenoTechs不再存在。我们的Delphi / Oracle企业应用程序中有许多具有GTSizer组件的表格。我们已经安装了Delphi 2009，但是GTSizer不兼容，因此我们暂时推迟。任何和所有建议都欢迎。

最佳答案

我一直在用这个；

procedure ScaleForm(F: TForm; ScreenWidth, ScreenHeight: LongInt) ;
begin
   F.Scaled := True;
   F.AutoScroll := False;
   F.Position := poScreenCenter;
   F.Font.Name := 'Arial';
   if (Screen.Width <> ScreenWidth) then begin
     F.Height :=
         LongInt(F.Height) * LongInt(Screen.Height)
         div ScreenHeight;
     F.Width :=
         LongInt(F.Width) * LongInt(Screen.Width)
         div ScreenWidth;
     F.ScaleBy(Screen.Width,ScreenWidth) ;
   end;
end;

资料来源：About.com，zarko gajic