难问题: 高手请进! 在线等待给分!

eastxiang 2004-12-09 05:09:40

在一个Form上有很多控件(可见的,不可见的).

能不能实现这样的功能,如果控件有 Font 的属性,就把 Font.size = 9 ,否则不处理!

...全文

132 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

eastxiang 2004-12-09

打赏
举报

to :aiirii(ari-爱的眼睛) :

高手就是高手, 一说就明白我的意思!非常感谢!

给分!!!!!!

eastxiang 2004-12-09

打赏
举报

to :aiirii(ari-爱的眼睛)
我试试!谢谢

才子鸣 2004-12-09

打赏
举报

Onchange事件

eastxiang 2004-12-09

打赏
举报

我的要求是:
1.设计的时候,可能不是所有的控件的ParentFont属性设为true;
2.要求的运行中动态改变.
3.有可能改为9, 也可能改为12, 则所以控件都变 12

aiirii 2004-12-09

打赏
举报

uses TypInfo;
{$R *.dfm}

function TForm1.SetCtrlFont(ctrl: TComponent): boolean;
var
pi : PPropInfo; AFont: TFont;
begin
result := false;
pi := getPropInfo(pTypeInfo(ctrl.ClassInfo ), 'Font' );
if ( pi <> nil ) then
begin
AFont := TFont.Create;
AFont.Style := [fsBold];
SetOrdProp(ctrl, pi, Longint(AFont));
AFont.Free;
result := true;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var I: integer;
begin
for I:=0 to self.ComponentCount-1 do
begin
SetCtrlFont(self.Components[i]);
end;
end;

beyondtkl 2004-12-09