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

Question

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;

Answer 1

补充：
setimagestate(application, false);false 是将 Image.Enabled 设成 false, 反之为 True就这么简单。

Answer 2

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