Как сделать в Delphi чтобы при нажатии на кнопку "Сменить КАРТИНКУ" картинки менялись

[6-6-6]

Вот такой вот код имеется, надо запрограммировать на 1 кнопку чтобы эти 3 картинки менялись поочередно

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;

procedure TForm1.Button3Click(Sender: TObject);

begin

{Портретная фотография становится невидимой} Image1.Visible:=False;

{Художественная фотография становится невидимой} Image2.Visible:=False;

{Фотография дома становится видимой}Image3.Visible:=True;

end;

Скажите что надо вставлять?

[Lakers]

кидаеш на форму три кнопки и три объекта типа TImage.тыкаеш два раза по первой кнопке пишиш

Image1.Visible:=True;
Image2.Visible:=False;
Image3.Visible:=False;

во второй кнопке пишиш:

Image1.Visible:=False;
Image2.Visible:=True;
Image3.Visible:=False;

в третьей кнопке пишиш:

Image1.Visible:=False;
Image2.Visible:=False;
Image3.Visible:=True;

[Shady_G]

procedure TForm1.Button1Click(Sender: TObject);
begin
if Button1.Caption='Художественная фотография' then
begin Image1.Visible:=true;
Image2.Visible:=false;
Image3.Visible:=false;
Button2.Enabled:=true;
Button2.Visible:=true;
Button1.Caption:='Фотография дома';
end
else
if  Button1.Caption='Фотография дома' then
begin Image1.Visible:=false;
Image3.Visible:=false;
Image2.Visible:=true;
Button2.Enabled:=true;
Button2.Visible:=true;
Button1.Caption:='Портретная фотография';
end
else
begin Image1.Visible:=true;
Image3.Visible:=true;
Image2.Visible:=false;
Button1.Caption:='Художественная фотография';
end;
end;

[TolkienDRR]

image.picture.loadfromfile нынче не в моде?

Добавлено спустя 3 минуты 19 секунд:

да и кажись одна кнопка, а не 2 или 3.

хотя в этом коде вообще не понятно зачем кнопка 2

Button2.Enabled:=true;
Button2.Visible:=true;

[6-6-6]

вы не так поняли надо одну запрограмировать кнопку чтобы при нажатии на кнопку "сменить картинку" менялись картинки этих трех фоток

[TolkienDRR]

6-6-6

вопрос 1: у тебя имеется 3 картинки на форме и 1 кнопка.

если нажать на кнопку, все три картинки меняются на другие??

вопрос 2: откуда берутся другие картинки?

[goH]

3 TImage, 1 кнопка...

принажатии на кнопку меняешь видимость нужного имэйджа

заволишь глобальную переменную count, например

var count: integer;

procedure TButton1Click;

var s: integer;

begin

s:= count mod 3;

case s of

0:

begin

TImage1.Visible:= False;

TImage2.Visible:= True;

end;

1:

begin

TImage2.Visible:= False;

TImage3.Visible:= True;

end;

2:

begin

TImage3.Visible:= False;

TImage1.Visible:= True;

end;

inc(count);

примерно так... пишу навскидку, если что, по шапке не стучать )))

[Chip313]

Лаба Лампочки?

[Lucky]

а массивы уже нынче не в моде? или списки?

в массив(список) заносим имена нужных файлов, и грузим поочерёдно в Image (как было сказано выше image.picture.loadfromfile(имя_файла))

можно ещё и счётчик задействовать для определения индекса картинки...