Переключатель двух изображений

@99Екатерина99 · Регистрация: 05.12.2016

Студворк — интернет-сервис помощи студентам

Дорогие форумчане, не подскажите на форме друг на друг наложены 2 изображения, как с помощью кнопки их переключать?

@Teodor7 · 14.12.2016, 12:52

Сообщение от 99Екатерина99

при первом нажатии на кнопку первая картинка появлялась

Можно. Тогда к моему коду добавить в FormCreate Flag:=0;
и оба Image Visible установить False в инспекторе объектов.

@YuryK · 14.12.2016, 12:56

с тем, что так алгоритм красивее. Да и масштабируемость теперь легко реализуется

Добавлено через 1 минуту
Teodor7, в твоем коде 2 состояния, а их теперь требуется три

@Teodor7 · 14.12.2016, 13:03

Третье состояние - исходное.

Добавлено через 3 минуты
Если реально состояний больше двух, то надо использовать RadioGroup

DenNik · 14.12.2016, 14:05

Teodor7, YuryK, вы выдумали себе проблему, не относящуюся к теме, и теперь ее обсуждаете. в задании четко сказано: ДВА изображения

Сообщение от 99Екатерина99

на форме друг на друг наложены 2 изображения, как с помощью кнопки их переключать?

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

Delphi
1
2
3
4
5
6
7
8
begin
  if not Image1.Visible and not Image2.Visible
  then Image1.Show else
  begin
    Image1.Visible:= not Image1.Visible;
    Image2.Visible:= not Image2.Visible;
  end;
end;

@99Екатерина99 · 14.12.2016, 14:51 **[ТС]**

YuryK, Спасибо разобралась в вашем коде, но только теперь как мне сделать к вашему коду всплывающие подсказки? Так как код предложенный Teodor7,

Delphi
1
2
3
4
5
6
7
8
9
10
Flag:=1-Flag;
if flag=1 then begin
  Image1.Show;
  Image2.Hide;
  Button.Hint:='Картинка 1';
end else begin
  Image2.Show;
  Image1.Hide;
  Button.Hint:='Картинка 2';
end;

не работает с вашим.

Добавлено через 4 минуты
YuryK, И еще такой вопрос. У меня в программе код который убирает кнопку закрытия в приложении.

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.FormCreate(Sender: TObject);
var SysMenu: HMenu;
begin
   SysMenu := GetSystemMenu( Handle, false );
   Windows.EnableMenuItem( SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED );
   GetSystemMenu( Handle, false );
   Perform( WM_NCPAINT, Handle, 0 );
end;

Но никак не получается его вставить в вашу часть

Delphi
1
2
3
4
5
6
7
8
9
10
procedure TForm1.FormCreate(Sender: TObject);
begin
  OPhoenix.Visible := false;
  BPhoenix.Visible := false;
 
  OPhoenix.ShowHint := true;
  BPhoenix.ShowHint := true;
 
  FList := TObjectList.Create(false);
  end;

@YuryK · 14.12.2016, 14:57

после

Delphi
1
2
3
//последний объект списка делаем видимым и помещаем на передний план
  TImage(FList[FList.Count -1]).Visible := true;
  TImage(FList[FList.Count -1]).BringToFront;

добавь

Delphi
1
 Button1.Hint :=  TImage(FList[FList.Count -1]).Hint

при условии, что хинты у картинок проставлены в редакторе.
Или задай их в обработчике создания формы

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm3.FormCreate(Sender: TObject);
begin
  // для чистоты эксперимента
  OPhoenix.Visible := false;
  BPhoenix.Visible := false;
 
  OPhoenix.ShowHint := true;
  BPhoenix.ShowHint := true;
  OPhoenix.Hint := 'феникс в огне';
  BPhoenix.Hint := 'феникс накануне возрождения';
 
  FList := TObjectList.Create(false);
end;

Добавлено через 5 минут

Сообщение от 99Екатерина99

Но никак не получается его вставить в вашу часть

Странно, чего тут вставлять-то, код независим друг от друга, пишешь и тот и другой

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm3.FormCreate(Sender: TObject);
var SysMenu: HMenu;
begin
   SysMenu := GetSystemMenu( Handle, false );
   Windows.EnableMenuItem( SysMenu, SC_CLOSE, MF_DISABLED or MF_GRAYED );
   GetSystemMenu( Handle, false );
   Perform( WM_NCPAINT, Handle, 0 );
 
  // для чистоты эксперимента
  OPhoenix.Visible := false;
  BPhoenix.Visible := false;
 
  OPhoenix.ShowHint := true;
  BPhoenix.ShowHint := true;
  Button1.ShowHint := true;
 
  OPhoenix.Hint := 'феникс в огне';
  BPhoenix.Hint := 'феникс накануне возрождения';
 
  FList := TObjectList.Create(false);
 
end;

@Teodor7 · 14.12.2016, 14:58

Сообщение от 99Екатерина99

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

Так в этот момент (то есть у кнопки) или в момент после наведения на изображение?

@99Екатерина99 · 14.12.2016, 16:28 **[ТС]**

Teodor7, В момент нажатия на кнопку. Вот у YuryK, подсказки появляются при навидении на картинку, а мне нужно на кнопку.

@YuryK · 14.12.2016, 16:41

у меня тоже появляются

@Teodor7 · 14.12.2016, 16:53

А зачем, вообще-то, такой изврат? Я имею в виду постановку задачи.
Хинты ведут себя своевольно. Не проще использовать Label?

@YuryK · 14.12.2016, 16:57

Сообщение от Teodor7

А зачем, вообще-то, такой изврат? Я имею в виду постановку задачи.

Жизнь такая, что постановкой задач занимаются извращенцы, а программисты расхлёбывают

@99Екатерина99 · 14.12.2016, 23:39 **[ТС]**

YuryK, Хмм... А я не пойму почему у меня не появляются на кнопке

Добавлено через 3 минуты
ААА... А дурочка все поняла свою ошибку...

Добавлено через 40 секунд
Всем спасибо за советы и помощь! Очень благодарна.

Новые блоги и статьи Все статьи Все блоги /
Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .
Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026

@99Екатерина99 1 / 1 / 0 Регистрация: 05.12.2016 Сообщений: 178

	Переключатель двух изображений 12.12.2016, 14:55. Показов 4454. Ответов 31 Метки нет (Все метки) Дорогие форумчане, не подскажите на форме друг на друг наложены 2 изображения, как с помощью кнопки их переключать? 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	14.12.2016, 12:56
	с тем, что так алгоритм красивее. Да и масштабируемость теперь легко реализуется Добавлено через 1 минуту Teodor7, в твоем коде 2 состояния, а их теперь требуется три 0

@Teodor7 53 / 53 / 5 Регистрация: 22.11.2016 Сообщений: 268
	14.12.2016, 13:03
	Третье состояние - исходное. Добавлено через 3 минуты Если реально состояний больше двух, то надо использовать RadioGroup 0

@99Екатерина99 1 / 1 / 0 Регистрация: 05.12.2016 Сообщений: 178
	14.12.2016, 16:28 [ТС]
	Teodor7, В момент нажатия на кнопку. Вот у YuryK, подсказки появляются при навидении на картинку, а мне нужно на кнопку. 0

@YuryK 1040 / 856 / 335 Регистрация: 08.12.2016 Сообщений: 3,283
	14.12.2016, 16:41
	у меня тоже появляются Миниатюры 0

@Teodor7 53 / 53 / 5 Регистрация: 22.11.2016 Сообщений: 268
	14.12.2016, 16:53
	А зачем, вообще-то, такой изврат? Я имею в виду постановку задачи. Хинты ведут себя своевольно. Не проще использовать Label? 0

@99Екатерина99 1 / 1 / 0 Регистрация: 05.12.2016 Сообщений: 178
	14.12.2016, 23:39 [ТС]
	YuryK, Хмм... А я не пойму почему у меня не появляются на кнопке Добавлено через 3 минуты ААА... А дурочка все поняла свою ошибку... Добавлено через 40 секунд Всем спасибо за советы и помощь! Очень благодарна. 0