Кнопка "продолжить" в электронном пособии.

[(((sheva)))]

Я создаю пособие в delphi .В итоге у меня есть 24 формы с label в которых текст а так же в некоторых формах есть рисунки на каждой форме есть кнопка продолжить ,как сделать так чтоб при её нажатии текущая форма закрывалась а следующая открывалась, и кнопка назад.Очень прошу помогите .

[Swarog]

оброботчик кнопки далее на первой форме

form1.hide
form2.show

в таком же духе на остальных вормах, текщую прячешь следующую показываешь

[Человек_Борща]

Думаю вам будет проще использовать TTabSheet или Фреймы, второее удобнее т.к. фрейм - это тоже форма, но её можно создать внутри наст. формы. И того у вас 1 форма и 24 фрейма..

[(((sheva)))]

Огромное спасибо очень помогло)))Но появился новый вопрос:
У меня на 24 форме заканчивается курс и там есть кнопка пройти тест,но так как тесть я нашла в интернете у меня есть только fail.exe как сделать чтоб при нажатии на эту кнопку включался тест.

[Swarog]

ShellExecute(0, nil, 'путь к файлу',nil, nil, SW_SHOWNORMAL);

[(((sheva)))]

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

[Swarog]

да, вместо слова "путь к файлу" записать путь к запускаемому приложению

[(((sheva)))]

Да это я поняла но у меня не работает, вот что получается:
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.

[Swarog]

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}

function ShellExecute(hWnd: HWnd; Operation, FileName, Parameters,
 Directory: PChar; ShowCmd: Integer): HINST; stdcall; external 'shell32.dll' name 'ShellExecuteA';

procedure TForm24.btn1Click(Sender: TObject);
begin
ShellExecute(Self.Handle, 'open', 'D:\DADADADADADADASHHHHAAAAAA\проек ты\ТЕСТ РЕВИЗОР ПоКОМПЬЮТЕРНЫМ СЕТЯМ\Test.exe',
nil, nil, SW_SHOWNORMAL);

end;

end.

вот так будет работать

[(((sheva)))]

Да оно работает но проблема в том что данный файл это тест и у него есть кнопки справка а она так же файл и файл с вопросами и ответами также файл и вот когда нажала кнопку пройти выдалась ошибка не может открыть файл OPROS.ref это файл справки что теперь делать??Но сома форма теста выдалась хотя я даже выбрать тему для тестирования не могу так как это тоже файлы что так же как и справка не могут быть прочитаны.Может их тоже как то прописать надо .