Alle Timages mit einem Befehl unsichtbar machen

[Nightblade]

Hallo.

Vielen Dank für die Super schnelle Antwort hätte nicht gedacht das es so schnell geht. Nun steh ich aber vor dem nächsten Problem.

Ich habe mir erlaubt, die procedur von Tryer zu übernehmen und nur das Formular (MyForm in das abzuändern wie es bei mir heißt. TLeitern).
Ich habe schon überall geschaut aber wie ich ein procedure einbinde habe ich leider nicht für absolute anfänger wie mich gefunden. So weit waren wir damals in der Schule leider nie. Die Hilfe in meinem Delphi geht auch nicht, da ich dummerweise nur noch Vista habe und Delphi7 diese nicht unterstützt. Deshalb muss ich leider noch mal fragen.

Wo muss ich die Procedure einbinden. Ich habe Sie jetzt unter Private eingebunden, weil (soweit denke ich zu verstehen) Delphi selbst geschriebene Procedures an den stellen Private, Public etc. sucht.
Nun ist auch die Fehlermeldung `'Undeclared Identifier: 'ShowImageHideOther' verschwunden. Dafür kommt nun:

'Undeclared Identifier: 'TLeitern'

Hier der betroffene Quelltext:

Delphi-Quellcode:

unit Leiter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, Outline, DirOutln, Menus, Daten, jpeg, Buttons;



type
  TLeitern = class(TForm)
    bh: TEdit;
    prl: TEdit;
    hhk: TImage;
    hbk: TImage;
    hbg: TImage;
    hhg: TImage;
    ebh: TImage;
    hbk2: TImage;
    ebg: TImage;
    ebtk: TImage;
    ebtg: TImage;
    hbk3: TImage;
    dmgp: TLabel;
    dmlp: TLabel;
    lp: TEdit;
    gp: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    Label10: TLabel;
    Image1: TImage;
    Label1: TLabel;
    Image2: TImage;
    Label4: TLabel;
    Label6: TLabel;
    elb: TImage;
    ebk: TImage;
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    Beenden1: TMenuItem;
    Gehezu1: TMenuItem;
    Begrung1: TMenuItem;
    Schwimmbeckenauswahl11: TMenuItem;
    Leiterauswahl21: TMenuItem;
    Filterauswahl31: TMenuItem;
    Skimmer41: TMenuItem;
    Bodenreinigungsset51: TMenuItem;
    Abschluseite61: TMenuItem;
    Label8: TLabel;
    Speichernffnen1: TMenuItem;
    form: TEdit;
    GertezurWassererwrmung41: TMenuItem;
    SolardurBerechnung1: TMenuItem;
    WeitereArtikel1: TMenuItem;
    LetzteAktiveSeite1: TMenuItem;
    neing: TRadioButton;
    heing: TRadioButton;
    eing: TRadioButton;
    Leiterauswahl: TComboBox;
    Memo1: TMemo;
    leitergelenk: TCheckBox;
    Memo2: TMemo;
    lg: TEdit;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure lpChange(Sender: TObject);
    procedure Beenden1Click(Sender: TObject);
    procedure Begrung1Click(Sender: TObject);
    procedure Schwimmbeckenauswahl11Click(Sender: TObject);
    procedure Leiterauswahl21Click(Sender: TObject);
    procedure Filterauswahl31Click(Sender: TObject);
    procedure Skimmer41Click(Sender: TObject);
    procedure Bodenreinigungsset51Click(Sender: TObject);
    procedure Abschluseite61Click(Sender: TObject);
    procedure prlChange(Sender: TObject);
    procedure Speichernffnen1Click(Sender: TObject);
    procedure GertezurWassererwrmung41Click(Sender: TObject);
    procedure SolardurBerechnung1Click(Sender: TObject);
    procedure ebgClick(Sender: TObject);
    procedure ebgDblClick(Sender: TObject);
    procedure WeitereArtikel1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1Click(Sender: TObject);
    procedure LeiterauswahlChange(Sender: TObject);
    procedure neingClick(Sender: TObject);
    procedure heingClick(Sender: TObject);
    procedure eingClick(Sender: TObject);
    procedure leitergelenkClick(Sender: TObject);



  private
   procedure TLeitern.ShowImageHideOther(Image: TImage); {Von mir eingebundene Procedur}
    { Private-Deklarationen }
  public

    { Public-Deklarationen }
  end;

var
i: Integer;
  Leitern: TLeitern;

implementation

uses Skimer, Pool, Unit1, beg, unit2, endp, savef, acht, Rund, oval, Unit3,
  Unit4, art, recht;

{$R *.DFM}


procedure TLeitern.ShowImageHideOther(Image: TImage); {Geänderte procedure von Tryer}
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;


end;

Ich sollte vlt. noch anmerken, dass mein Programm diverse TForms nutzt, die in bestimmter reihenfolge angezeigt werden. Sollte aber soweit ich verstanden habe egal sein, da der Befehl den ich versuche zu nutzen nur in diesem Form genutzt werden soll.

Vielen Dank schon mal für eure Hilfe.