Alle Timages mit einem Befehl unsichtbar machen

[Nightblade]

Hallo.

Ich bin absoluter anfänger und hoffe hier kann mir jmd. helfen.

Gibt es einen Befehl, mit dem ich ganz einfach alle TImages auf einmal unsichtbar machen kann?
Ich habe 7 Images auf einem Form wobei immer nur ein bestimmtes angezeigt werden soll.

Bisher habe ich es immer so gemacht.

elb.show;
ebh.Visible := false;
hbg.Visible := false;
hbk.visible := false;
hhk.visible := false;
hhg.visible := false;

Da nun aber immer mehr Bilder hinzukommen, sollen erst einmal alle TImages auf visible := false gesetzt werden. Danach möchte ich ein bestimmtes Bild wieder anzeigen.

Ich möchte aber auch vermeiden, dass ich immer jedes einzelne Image manuell auf false setzen muss.

Wär super wenn ich von euch irgendwie eine eingebung bekomme.

[jfheins]

Schreibe dir eine kleine Funktion, die alle Images versteckt.
Dann einfach diese Funktion aufrufen und danach ein Bild wieder sichtbar 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;

[himitsu]

In einer Schleife alle Controls durchgehn, von denen die Form der Owner ist,
deren Typen (via IS) auf TImage prüfen und bei denen das Visible setzen.

Die VCL setzt standardmäßig den Owner für alle geladene Komponenten auf die Form.

[edit]
Daß hier auch alle gleich alles vormachen müssen ... wie soll man denn da sein Programm selber schreiben?

[Tryer]

Zitat von himitsu:

Die VCL setzt standardmäßig den Owner für alle geladene Komponenten auf die Form.

Wobei hier ausschlaggebend ist das die Form der Parent ist und somit für die Darstellung verantwortlich. Sonst würde man mit Components[] und ComponentCount arbeiten.

Grüsse, Dirk

[himitsu]

Nja, auch wenn die Form nicht der Parent ist, wird sie dennoch der Owner sein.
Liegt die Komponente auf einem Panel, ist das Panel der Parent und die Form der Owner.
(wenn die Form über die VCL aus einer DFM geladen wurde)

Da gibt es ja zwei Listen in TContols/TWinControls?
Ich glaub .Components und .Controls - das Eine für die Parent-Verknüpfungen und das Andere für die Owner-Verknüpfungen.

[Tryer]

Jap, Controls für den Parent-Bezug, Components für Owner.
Zitat von Nightblade: "7 Images auf einer Form".. auch wenn er sich selbst um die Freigabe kümmert ".Create(nil)" sollten die Images somit in Controls[] auftauchen.
Ist aber Erbsenzählerei, vermutlich funktioniert beides