这个是本人最近编制的一个窗体继承类。程序代码很短，但很有用，解决了Delphi程序设计中窗体及其包含的控件自适应不同屏幕分辨率的问题。 即你的程序可能是在1024X768屏幕分辨率下设计的，但是需要在屏幕分辨率为1280X1024的机器上运行，如果不做专门的处理，有些界面可能会变形，有些控件可能会看不见。 这个类对上述问题给出了一般性的解决方案，尽管稍嫌 粗糙，但能满足普通软件开发的需要。 用法很简单，只要在新创建的窗体中引用这个类所在的单元，并将TForm1=Class(TForm)改为TF

Delphi编制的自适应屏幕分辨率的窗体

ResScale.pas Delphi编制的自适应屏幕分辨率的窗体控件