网上的有关程序如:Procedure TXianzc_FM.ChangeYouFormAllControlIme(YFormName:TWinControl);
var
i:integer;
ChildControl:TControl;
Reg:TRegistry;
YouFormOrOTher:TWinControl;
begin
YouFormOrOTher:=YFormName;
reg:=TRegistry.Create;
//¶Áȡע²á±í±£´æµÄÓû§Ñ¡ÔñµÄÊäÈë·¨,Óõ¥ÔªÈ«¾Ö±äÁ¿ StrImeName ±£´æ
reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if Reg.OpenKey('\Software\IMeCustom',false)=true then
StrImeName:=reg.ReadString('CustomIMeName');
finally
reg.CloseKey;
reg.Free;
end;
try
for i:=0 to YouFormOrOTher.ControlCount-1 do
begin
ChildControl:=YouFormOrOTher.Controls[i];
JugeClassType(ChildControl);
if ChildControl is TWinControl then
ChangeYouFormAllControlIme(ChildControl as TWinControl);
end;调用这个过程 ChangeYouFormAllControlIme(YFormName:TWinControl);
为什么YFormName总 NIL 呀
var
i:integer;
ChildControl:TControl;
Reg:TRegistry;
YouFormOrOTher:TWinControl;
begin
YouFormOrOTher:=YFormName;
reg:=TRegistry.Create;
//¶Áȡע²á±í±£´æµÄÓû§Ñ¡ÔñµÄÊäÈë·¨,Óõ¥ÔªÈ«¾Ö±äÁ¿ StrImeName ±£´æ
reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if Reg.OpenKey('\Software\IMeCustom',false)=true then
StrImeName:=reg.ReadString('CustomIMeName');
finally
reg.CloseKey;
reg.Free;
end;
try
for i:=0 to YouFormOrOTher.ControlCount-1 do
begin
ChildControl:=YouFormOrOTher.Controls[i];
JugeClassType(ChildControl);
if ChildControl is TWinControl then
ChangeYouFormAllControlIme(ChildControl as TWinControl);
end;调用这个过程 ChangeYouFormAllControlIme(YFormName:TWinControl);
为什么YFormName总 NIL 呀
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货