怎样对程序中的所有TImage控件都Enabled := True 或 Enabled := False

[emao_mhw]

怎样对程序中的所有TImage控件都Enabled := True 或 Enabled := False???

[haoco]

var
i:integer
for i:=0 to ComponentCount-1 do
if Components[i].ClassName='TImage' then
TImage(Components[i]).Enabled:=false

[yangxiao_jiang]

用actionlist控件可以

[hrp123]

如何实现呀我也有此问题

[longquan]

procedure TForm1.Button1Click(Sender: TObject);
procedure setimagestate(Component: TComponent; isenabled: boolean);
var i: integer;
begin
if Component.ComponentCount > 0 then
for i := 1 to Component.ComponentCount do
begin
if Component.Components[i - 1] is TImage then
TImage(Component.Components[i-1]).enabled := isenabled;

setimagestate(Component.Components[i - 1], isenabled);
end;
end;
begin
setimagestate(application, false);
end;

[longquan]

补充：
setimagestate(application, false);

false 是将 Image.Enabled 设成 false, 反之为 True

就这么简单。