Форма с несколькими страницами (текст и изображения)

@Иван Лонли · Регистрация: 01.06.2015

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

Добрый день!
Есть у кого-нибудь исходник или мог бы кто-нибудь помочь с небольшой программой?
Суть: пользователь при запуске на форме видит, допустим, страницу 1, на ней текст (edit?), окошко с изображением, и кнопка button1 [вперед] и button2 [закрыть] , после нажатия на кнопку [вперёд] 1-я заменяется на 2 страницу (там тоже любое любое изображение и текст, номера страниц не нужны, это я просто уточняю) , начиная со второй страницы появляется кнопка button3 [назад], при возврате на 1-ю она должна исчезать, но кнопка [закрыть] активна постоянно (отвечает за закрытие программы), потом страница 3 (она последняя) на ней кнопка [вперед] пропадает (либо становится невидимой), но кнопка [назад] остается и появляется последняя кнопка button 4 (на неё ничего писать не нужно, но она активна только на последней странице, на других её не должно быть). Компоненты с текстом и изображениями одинакового размера и находятся в одних и тех же местах на всех 3 страницах, изображения и текст берутся из папки с проектом Delphi. Пользователю при запуске программы ничего редактировать в компонентах, тексте и изображениях не нужно, просто, нажимая кнопки [вперёд], [назад] просматривать, и всё. Очень хотелось бы увидеть исходник такого (код, операции, условия, переменные и нужные для этого компоненты), на его основе я хотел бы увидеть, как делать подобное, работал с Delphi 7 очень давно. Если кто-то поможет, буду очень рад.
Спасибо заранее!

@bv7 · 02.06.2015, 21:48

Quick Report не то?

@northener · 02.06.2015, 22:15

Стандартный TPageControl со скрытыми закладками.
А если нужен пример, скачай библиотеку RxLib и посмотри исходники компонента PageManager.

@Иван Лонли · 02.06.2015, 23:09 **[ТС]**

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

Стандартный TPageControl со скрытыми закладками.
А если нужен пример, скачай библиотеку RxLib и посмотри исходники компонента PageManager.

Стандартный TPageControl со скрытыми закладками.

А можно поподробнее? Я даже не понял о чём речь

@northener · 03.06.2015, 00:54

Сообщение от Иван Лонли

Я даже не понял о чём речь

Совсем ничего не понял? Это плохо.
Ну вот тебе пример. чтобы хоть что-то понял.

@Иван Лонли · 03.06.2015, 11:17 **[ТС]**

Спасибо большое!
но есть ещё вопросы

Delphi

procedure TForm26.Button7Click(Sender: TObject);
begin
  Close;
end; // это кнопка [закрыть], верно?
 
procedure TForm26.Button1Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=1;
end;
 
procedure TForm26.Button2Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=2;
end;
 
procedure TForm26.Button3Click(Sender: TObject);
begin
 PageControl1.ActivePageIndex:=3;
end;
 
procedure TForm26.Button4Click(Sender: TObject);
begin
  PageControl1.ActivePageIndex:=PageControl1.ActivePageIndex-1;
end; // А вот это отвечает за смену страницы?

Delphi

    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo2: TMemo;
    Button4: TButton;
    Button5: TButton;
    Memo3: TMemo;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;

так много кнопок и мемо потому, что никак не сделать, чтобы эти 3 кнопки оставались одни и те же? тоесть для каждой страницы мемо и кнопки будут свои?
А как вставлять изображения? Какой компонент и процедура для загрузки изображения из папки? А текста из файла 1.txt например? или лучше весь текст сразу в коде прописывать?

Delphi

PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;

что это, это тоже за страницы отвечает?

Caption = #1042#1087#1077#1088#1077#1076, обязательно так текст в компонентах писать? я просто слышал, что можно с кавычками писать и всё... или это с мемо так обязательно?

проект не работает, при запуске ссылается на недостаток файлов или компонентов(?) предлагает игнорировать целую кучу всего, и потом могу видеть одну страницу на форме, при нажатии зеленой кнопки запуска - не работает и шлёт в код с выделенной строкой, помогите разобраться, что к чему, пожалуйста

@northener · 03.06.2015, 16:47

Сообщение от Иван Лонли

предлагает игнорировать целую кучу всего

Игнорируй это не страшно.

Сообщение от Иван Лонли

на недостаток файлов

Удали строчку
ExceptionLog,

@Иван Лонли 0 / 0 / 0 Регистрация: 01.06.2015 Сообщений: 7
		1
	Форма с несколькими страницами (текст и изображения) 02.06.2015, 20:47. Показов 953. Ответов 6 Метки нет (Все метки) Добрый день! Есть у кого-нибудь исходник или мог бы кто-нибудь помочь с небольшой программой? Суть: пользователь при запуске на форме видит, допустим, страницу 1, на ней текст (edit?), окошко с изображением, и кнопка button1 [вперед] и button2 [закрыть] , после нажатия на кнопку [вперёд] 1-я заменяется на 2 страницу (там тоже любое любое изображение и текст, номера страниц не нужны, это я просто уточняю) , начиная со второй страницы появляется кнопка button3 [назад], при возврате на 1-ю она должна исчезать, но кнопка [закрыть] активна постоянно (отвечает за закрытие программы), потом страница 3 (она последняя) на ней кнопка [вперед] пропадает (либо становится невидимой), но кнопка [назад] остается и появляется последняя кнопка button 4 (на неё ничего писать не нужно, но она активна только на последней странице, на других её не должно быть). Компоненты с текстом и изображениями одинакового размера и находятся в одних и тех же местах на всех 3 страницах, изображения и текст берутся из папки с проектом Delphi. Пользователю при запуске программы ничего редактировать в компонентах, тексте и изображениях не нужно, просто, нажимая кнопки [вперёд], [назад] просматривать, и всё. Очень хотелось бы увидеть исходник такого (код, операции, условия, переменные и нужные для этого компоненты), на его основе я хотел бы увидеть, как делать подобное, работал с Delphi 7 очень давно. Если кто-то поможет, буду очень рад. Спасибо заранее! Миниатюры 0

@bv7 21 / 9 / 3 Регистрация: 24.05.2014 Сообщений: 60
	02.06.2015, 21:48	2
	Quick Report не то? 0

@northener пофигист широкого профиля 4738 / 3171 / 860 Регистрация: 15.07.2013 Сообщений: 18,269
	02.06.2015, 22:15	3
	Стандартный TPageControl со скрытыми закладками. А если нужен пример, скачай библиотеку RxLib и посмотри исходники компонента PageManager. 0

@Иван Лонли 0 / 0 / 0 Регистрация: 01.06.2015 Сообщений: 7
	02.06.2015, 23:09 [ТС]	4
	Сообщение от northener Стандартный TPageControl со скрытыми закладками. А если нужен пример, скачай библиотеку RxLib и посмотри исходники компонента PageManager. Стандартный TPageControl со скрытыми закладками. А можно поподробнее? Я даже не понял о чём речь 0

@northener пофигист широкого профиля 4738 / 3171 / 860 Регистрация: 15.07.2013 Сообщений: 18,269
	03.06.2015, 16:47	7
	Сообщение от Иван Лонли предлагает игнорировать целую кучу всего Игнорируй это не страшно. Сообщение от Иван Лонли на недостаток файлов Удали строчку ExceptionLog, 0