procedure Tform1.FormShow(Sender: TObject);
begin
frmWork.AutoScroll := False;
Scaleby(Screen.Width, 800); //假设设计时屏幕设置为800*600
end;
begin
frmWork.AutoScroll := False;
Scaleby(Screen.Width, 800); //假设设计时屏幕设置为800*600
end;
解决方案 »
- 关于Delphi程序中日志模块开发的问题
- Anycell Report(中国式报表)的最新版本V1.7出来啦,支持交叉表和分组报表,欢迎下载!
- 请问,我想打包我的程序,都需要打包哪些文件??
- 如何判断IE窗口中显示的是否是HTML页面。
- 软件接口问题
- 想学习Delphi,大家能不能给我推荐几本好书
- 请amiao(努力学习,天天向上)来领分
- POSTSCRIPT格式(*.ps)的文件要用什么工具才能打开?
- delphi数据库:用Tquery创建access表时:cusor handel error! why?
- 拿分换原码
- Help.Create(self); 在线等待!
- 如何连接同一数据库中不同用户所属的表?
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;
请问我应该把控制字体的那段代码放在什么位置?