GenoTechs GTSizer组件

Question

有没有人知道像GTSizer一样有效的第三方组件？似乎GenoTechs不再存在。我们的Delphi / Oracle企业应用程序中有许多具有GTSizer组件的表单。我们安装Delphi 2009但GTSizer不兼容，所以我们现在暂时不推。欢迎提出任何建议。

Answer 1

我一直在用这个;

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

Answer 2

我使用锚点和对齐来处理网格，备忘录等，例如GenoTechs中显示的animated example。

我从来不喜欢根据调整窗口大小来改变按钮的大小和编辑控件及其字体。 GTSizer demo

Answer 3

也许DevEx's Layout Control可以满足您的需求。 OTOH，这可能是一个重大的矫枉过正。 ：）

Answer 4

我使用的是elastic forms，但他们没有为D2009更新它，我还没有在D2009上测试它。