taideveloper(孔丙已) 或 happyzsl(学习) 请教一下!
jybd 2003-09-29 04:03:33 两位请教一下:关于控制窗体的自适应程序中
以下代码要定义在哪里?
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;
另外,NewFormWidth 和 OldFormWidth 应在哪里定义?
请多多指教!