|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.05.2011, 13:48 | #1 |
Регистрация: 22.04.2011
Сообщений: 7
|
Кнопка "продолжить" в электронном пособии.
Я создаю пособие в delphi .В итоге у меня есть 24 формы с label в которых текст а так же в некоторых формах есть рисунки на каждой форме есть кнопка продолжить ,как сделать так чтоб при её нажатии текущая форма закрывалась а следующая открывалась, и кнопка назад.Очень прошу помогите .
|
19.05.2011, 14:04 | #2 |
Форумчанин
Регистрация: 26.01.2010
Сообщений: 215
|
оброботчик кнопки далее на первой форме
Код:
Могу лишь пнуть в нужном направлении (ну или как получится)
|
19.05.2011, 14:05 | #3 |
Старожил
Регистрация: 30.12.2009
Сообщений: 11,426
|
Думаю вам будет проще использовать TTabSheet или Фреймы, второее удобнее т.к. фрейм - это тоже форма, но её можно создать внутри наст. формы. И того у вас 1 форма и 24 фрейма..
|
19.05.2011, 14:26 | #4 |
Регистрация: 22.04.2011
Сообщений: 7
|
Огромное спасибо очень помогло)))Но появился новый вопрос:
У меня на 24 форме заканчивается курс и там есть кнопка пройти тест,но так как тесть я нашла в интернете у меня есть только fail.exe как сделать чтоб при нажатии на эту кнопку включался тест. |
19.05.2011, 14:46 | #5 |
Форумчанин
Регистрация: 26.01.2010
Сообщений: 215
|
Код:
Могу лишь пнуть в нужном направлении (ну или как получится)
|
19.05.2011, 15:02 | #6 |
Регистрация: 22.04.2011
Сообщений: 7
|
Ой вы меня простите что так напрягаю ,что то я не особо понимаю куда это надо вписывать.Всю эту строчку в кнопку что ли .
|
19.05.2011, 16:17 | #7 |
Форумчанин
Регистрация: 26.01.2010
Сообщений: 215
|
да, вместо слова "путь к файлу" записать путь к запускаемому приложению
Могу лишь пнуть в нужном направлении (ну или как получится)
|
19.05.2011, 17:06 | #8 |
Регистрация: 22.04.2011
Сообщений: 7
|
Да это я поняла но у меня не работает, вот что получается:
unit Unit24; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ShellApi; type TForm24 = class(TForm) lbl1: TLabel; lbl2: TLabel; btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form24: TForm24; implementation {$R *.dfm} procedure TForm24.btn1Click(Sender: TObject); begin ShellExecute(Self.Handle, 'open', 'D:\DADADADADADADASHHHHAAAAAA\проек ты\ТЕСТ РЕВИЗОР ПоКОМПЬЮТЕРНЫМ СЕТЯМ\Test.exe', nil, nil, SW_SHOWNORMAL); end; end. |
19.05.2011, 18:39 | #9 |
Форумчанин
Регистрация: 26.01.2010
Сообщений: 215
|
Код:
Могу лишь пнуть в нужном направлении (ну или как получится)
|
19.05.2011, 20:48 | #10 |
Регистрация: 22.04.2011
Сообщений: 7
|
Да оно работает но проблема в том что данный файл это тест и у него есть кнопки справка а она так же файл и файл с вопросами и ответами также файл и вот когда нажала кнопку пройти выдалась ошибка не может открыть файл OPROS.ref это файл справки что теперь делать??Но сома форма теста выдалась хотя я даже выбрать тему для тестирования не могу так как это тоже файлы что так же как и справка не могут быть прочитаны.Может их тоже как то прописать надо .
Последний раз редактировалось (((sheva))); 19.05.2011 в 20:52. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Где скачать в электронном виде "ATL 8. Внутренняя структура и применение" | graviator | Обсуждение статей | 3 | 07.04.2010 22:10 |
Динамическая память или кнопка "Отмена" и "Назад" | Ilnour1986 | Microsoft Office Excel | 2 | 27.10.2009 04:49 |
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" | aleksei78 | Microsoft Office Excel | 13 | 25.08.2009 12:04 |
Кнопка "поверх всех окон" как в палитре инструментов | AvAlex | Общие вопросы Delphi | 11 | 16.04.2009 01:04 |