Перейти к содержанию

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


Рекомендуемые сообщения

Вот такой вот код имеется, надо запрограммировать на 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;

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

Ссылка на комментарий

кидаеш на форму три кнопки и три объекта типа 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;

Ссылка на комментарий
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;

Ссылка на комментарий

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

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

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

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

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

Ссылка на комментарий

6-6-6

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

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

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

Ссылка на комментарий

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);

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

Ссылка на комментарий
  • 2 недели спустя...

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

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

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

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...