кнопка переключения изображений посредством условия

[lekivanv]

здравствуйте, уважаемые форумчане. вообще есть задание над которым я бьюсь уже не один час. есть форма с двумя изображениями и двумя кнопками, вот процедуры:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Visible:=True;
Image2.Visible:=False;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Visible:=False;
Image2.Visible:=True;
end;

т.е. просто кнопка включает одну видимость вырубает вторую и наоборот. нужно сделать третью кнопку для третьего изображения, при этом не меняя программный код первых двух... т.е. написать над видимо через операторов условия или как, вообщем подскажите у кого какие мысли есть

[Sparkman]

Ничего не понятно, но рискну предположить:

procedure TForm1.Button3Click(Sender: TObject);
begin
   if  Image2.Visible then
   begin
      Image3.Visible:=true;
      Image2.Visible:=false;
   end else
      Image3.Visible:=false;
end;

[lekivanv]

вот исходник: над сделать чтоб третья кнопка тоже работала, не изменяя код первых двух вариант 2.rar

[Sparkman]

Вариант 3

[evg_m]

всем кнопкам и картинкам задаем свойство tag
iimage1..tag:=1; button1.tag:=1;
image2.tag:=2; button2.tag:=2;
...
Это можно сделать и в инспекторе объектов.

Для всех кнопок общий (один и тот же обработчик события OnСlick)
каждый раз при добавлении картинки добавляем картинку в список поверок.

procedure TForm1.ButtonallClick(Sender: TObject);
begin
Image1.Visible:=( image1.tag <>(sender as Tbutton).tag);
Image2.Visible:=( image2.tag <>(sender as Tbutton).tag);
.....
end;

или тоже в цикле при добавлении новых кнопок и картинок
надо только не забывать ставить теги и обработчики. код уже править Не придется.

procedure TForm1.ButtonallClick(Sender: TObject);
var
   j: integer;
begin
  for j:=0 to self.componentcount-1 do
   if self.components[j] is Timage then
    (self.components[j] as Timage).visible:= (self.components[j] as Timage).tag =(sender as Tbutton).tag; 
end;