Alle Timages mit einem Befehl unsichtbar machen

[Tryer]

Delphi-Quellcode:

procedure TMyForm.ShowImageHideOther(Image: TImage);
var
  i: Integer;
begin
  for i := 0 to Pred(ControlCount) do
    if (Controls[i] is TImage) then
      TImage(Controls[i]).Visible := Controls[i] = Image;
end;