Сократитьте программу пожалуйста !? Кому не сложно ? Спасибо!

@legenda121 · Регистрация: 13.05.2016

Форма 1. (Добро Пожаловать!)

Pascal

Unit Unit1;
 
{$mode objfpc}{$H+}
 
Interface Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
 
ExtCtrls, StdCtrls, ComCtrls;
 
Type{ TForm1 }
 
TForm1 = Class(TForm)
 
Image1:TImage;
 
ProgressBar1:TProgressBar;
 
StaticText1:TStaticText;
 
Timer1:TTimer;
 
Procedure FormCreate(Sender: TObject);
 
Procedure Timer1Timer(Sender: TObject);
 
Private{ private declarations }
 
Public{ public declarations } End;
 
Var
 
Form1: TForm1;
 
Implementation
 
Uses Unit2; {$R *.lfm}{ TForm1 }
 
Procedure TForm1.FormCreate(Sender: TObject); //Отображение scrollbar и
 
Begin // установка таймера
 
Progressbar1.Show;
 
Timer1.Interval:=1;
 
Timer1.Enabled:=True;
 
End;
 
Procedure TForm1.Timer1Timer(Sender: TObject); //Постановка шага
 
Begin //scrollbar по таймеру
 
ProgressBar1.Position:=ProgressBar1.Position+1;
 
If ProgressBar1.Position>=progressBar1.max then
 
Begin
 
ProgressBar1.Visible:=False;
 
Form1.Hide;
 
Form2.Show;
 
Timer1.Enabled:=False;
 
End; End; End.

Добавлено через 1 минуту
Форма 2. (Оглавление)

Pascal

Unit Unit2;
 
{$mode objfpc}{$H+}
 
Interface Uses
 
Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics,
 
Dialogs, StdCtrls, ExtCtrls, Buttons, EditBtn, ActnList;
 
Type{ TForm2 }
 
TForm2 = class(TForm)
 
BitBtn1: TBitBtn; Button1: TButton; Button3: TButton; Button4: TButton;
 
Image1: TImage; Image2: TImage; Image3: TImage; Image4: TImage;
 
Memo1: TMemo; ScrollBar1: TScrollBar;
 
Procedure BitBtn1Click(Sender: TObject); Procedure Button1Click(Sender: TObject);
 
Procedure Button3Click(Sender: TObject); Procedure Button4Click(Sender: TObject);
 
Procedure FormCreate(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var
 
Form2: TForm2;
 
Implementation
 
Uses Unit3,Unit4,Unit13,Unit14; {$R *.lfm}{ TForm2 }
 
Procedure TForm2.FormCreate(Sender: TObject); //Загрузка тескта
 
Begin //из файла в Мемо
 
Memo1.Lines.LoadFromFile('Files\documents\Form_2\opisanie.txt');
 
End;
 
Procedure TForm2.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin Form2.Hide; Form14.Show; End;
 
procedure TForm2.Button1Click(Sender: TObject); //Открытие формы о
 
Begin Form2.Hide; Form3.Show; End; //программе (Форма 3)
 
Procedure TForm2.Button3Click(Sender: TObject); //Открытие формы с
 
Begin //тестами (Форма 13)
 
Form2.Hide; Form13.Show; End;
 
Procedure TForm2.Button4Click(Sender: TObject); //Открытие формы
 
Begin //учебника (Форма 4)
 
Form2.Hide; Form4.Show; End; End.

Добавлено через 28 секунд
Форма 3. (О программе)

Pascal

Unit Unit3; {$mode objfpc}{$H+} Interface Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
ExtCtrls; Type{ TForm3 }
 
TForm3 = class(TForm)
 
Button1: TButton;
 
Image1: TImage;
 
Label1: TLabel;
 
StaticText1: TStaticText;
 
Procedure Button1Click(Sender: TObject);
 
Private{ private declarations }
 
Public { public declarations } End;
 
Var Form3: TForm3; Implementation{$R *.lfm} { TForm3 }
 
Uses Unit2;
 
Procedure TForm3.Button1Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show; Form3.Hide; End; End.

Добавлено через 1 минуту
Форма 4. (Учебник)

Pascal

Unit Unit4; {$mode objfpc}{$H+} Interface Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
ExtCtrls, Buttons;
 
Type { TForm4 }
 
TForm4 = class(TForm)
 
BitBtn1: TBitBtn; Button1: TButton;
 
Image1: TImage;
 
Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
 
Procedure BitBtn1Click(Sender: TObject); Procedure Button1Click(Sender: TObject);
 
Procedure Label1Click(Sender: TObject); Procedure Label1MouseLeave(Sender: TObject);
 
Procedure Label1MouseMove
 
(Sender: TObject; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
 
Procedure Label2Click(Sender: TObject); Procedure Label2MouseLeave(Sender: TObject);
 
Procedure Label2MouseMove
 
(Sender: TObject; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
 
Procedure Label3Click(Sender: TObject); Procedure Label3MouseLeave(Sender: TObject);
 
Procedure Label3MouseMove
 
(Sender: TObject; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
 
Procedure Label4Click(Sender: TObject); Procedure Label4MouseLeave(Sender: TObject);
 
Procedure Label4MouseMove
 
(Sender: TObject; {%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
 
Private { private declarations }
 
Public { public declarations } End;
 
Var Form4: TForm4;
 
Implementation
 
Uses Unit2,Unit5,Unit6,Unit8,Unit9,Unit14;
 
{$R *.lfm} { TForm4 }
 
Procedure TForm4.Button1Click(Sender: TObject);
 
Begin //Открытие формы (Гл.Меню)
 
Form2.Show; Form4.Hide;
 
End;
 
Procedure TForm4.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin Form4.Hide; Form14.Show; End;
 
Procedure TForm4.Label1Click(Sender: TObject); //Открытие формы(Раздел 1)
 
Begin
 
Form4.Hide; Form5.Show;
 
Form5.Memo1.Visible:=True; Form5.Memo2.Visible:=False; Form5.Memo3.Visible:=False;
 
Form5.Button1.Visible:=True; Form5.BitBtn2.Visible:=False; Form5.Button2.Visible:=False;
 
Form5.Button3.Visible:=False; Form5.Button4.Visible:=False; End;
 
Procedure TForm4.Label1MouseLeave(Sender: TObject);
 
Begin //Смена цвета текста и фона
 
Label1.Font.Color:=clBlack; Label1.Color:=$00B2B2B2; End;
 
Procedure TForm4.Label1MouseMove
 
(Sender: TObject; Shift: TShiftState; X,Y: Integer); //Смена цвета текста и фона
 
Begin Label1.Font.Color:=clGreen; Label1.Color:=clWhite; End;
 
Procedure TForm4.Label2Click(Sender: TObject); //Открытие формы(Раздел 2)
 
Begin Form4.Hide; Form6.Show;
 
Form6.Memo1.Visible:=True; Form6.Memo2.Visible:=False; Form6.Memo3.Visible:=False;
 
Form6.Memo4.Visible:=False; Form6.Button1.Visible:=True; Form6.BitBtn2.Visible:=False;
 
Form6.Button2.Visible:=False; Form6.BitBtn3.Visible:=False;Form6.Button3.Visible:=False;
 
Form6.Button4.Visible:=False;Form6.Button5.Visible:=False; Form6.Button6.Visible:=False;
 
End;
 
Procedure TForm4.Label2MouseLeave(Sender: TObject);
 
Begin //Смена цвета текста и фона
 
Label2.Font.Color:=clBlack; Label2.Color:=$00B2B3B5;End;
 
Procedure TForm4.Label2MouseMove
 
(Sender: TObject; Shift: TShiftState; X,Y: Integer); //Смена цвета текста и фона
 
Begin Label2.Font.Color:=clGreen; Label2.Color:=clWhite; End;
 
Procedure TForm4.Label3Click(Sender: TObject); //Открытие формы(Раздел 3)
 
Begin Form4.Hide; Form8.Show;
 
Form8.BitBtn2.Visible:=False; Form8.BitBtn3.Visible:=False; Form8.Memo1.Visible:=True;
 
Form8.Button1.Visible:=True; Form8.Memo2.Visible:=False; Form8.Button2.Visible:=False;
 
Form8.Memo3.Visible:=False; Form8.Button3.Visible:=False; Form8.Memo4.Visible:=False;
 
Form8.Button4.Visible:=False;Form8.BitBtn2.Visible:=False; Form8.Button5.Visible:=False;
 
Form8.BitBtn3.Visible:=False; Form8.Button6.Visible:=False; End;
 
Procedure TForm4.Label3MouseLeave(Sender: TObject);
 
Begin //Смена цвета текста и фона
 
Label3.Font.Color:=clBlack; Label3.Color:=$00B3B4B6;End;
 
Procedure TForm4.Label3MouseMove
 
(Sender: TObject; Shift: TShiftState; X,Y: Integer); //Смена цвета текста и фона
Begin Label3.Font.Color:=clGreen; Label3.Color:=clWhite; End;
 
Procedure TForm4.Label4Click(Sender: TObject); //Открытие формы(Раздел 4)
 
Begin Form4.Hide; Form9.Show;
 
Form9.StaticText1.Visible:=True; Form9.Image2.Visible:=True;
 
Form9.StaticText2.Visible:=False; Form9.Image3.Visible:=False;
 
Form9.StaticText3.Visible:=False; Form9.Image4.Visible:=False;
 
Form9.StaticText4.Visible:=False; Form9.Image5.Visible:=False;
 
Form9.StaticText5.Visible:=False; Form9.Image6.Visible:=False;
 
Form9.StaticText6.Visible:=False; Form9.Image7.Visible:=False;
 
Form9.StaticText7.Visible:=False; Form9.Image8.Visible:=False;
 
Form9.StaticText8.Visible:=False; Form9.Image9.Visible:=False;
 
Form9.StaticText9.Visible:=False; Form9.Image10.Visible:=False;
 
Form9.StaticText10.Visible:=False; Form9.Image11.Visible:=False;
 
Form9.StaticText11.Visible:=False; Form9.Image12.Visible:=False;
 
Form9.StaticText12.Visible:=False; Form9.Image13.Visible:=False;
 
Form9.StaticText13.Visible:=False; Form9.Image14.Visible:=False;
 
Form9.StaticText14.Visible:=False; Form9.Image15.Visible:=False;
 
Form9.StaticText15.Visible:=False; Form9.Image16.Visible:=False;
 
Form9.Button1.Visible:=True; Form9.Button15.Visible:=False;
 
Form9.Button2.Visible:=False; Form9.Button16.Visible:=False;
 
Form9.Button3.Visible:=False; Form9.Button17.Visible:=False;
 
Form9.Button4.Visible:=False; Form9.Button18.Visible:=False;
 
Form9.Button5.Visible:=False; Form9.Button19.Visible:=False;
 
Form9.Button6.Visible:=False; Form9.Button20.Visible:=False;
 
Form9.Button7.Visible:=False; Form9.Button21.Visible:=False;
 
Form9.Button8.Visible:=False; Form9.Button22.Visible:=False;
 
Form9.Button9.Visible:=False; Form9.Button23.Visible:=False;
 
Form9.Button10.Visible:=False; Form9.Button24.Visible:=False;
 
Form9.Button11.Visible:=False; Form9.Button25.Visible:=False;
 
Form9.Button12.Visible:=False; Form9.Button26.Visible:=False;
 
Form9.Button13.Visible:=False; Form9.Button27.Visible:=False;
 
Form9.Button14.Visible:=False; Form9.Button28.Visible:=False;
 
Form9.BitBtn2.Visible:=False;
 
End;
 
Procedure TForm4.Label4MouseLeave(Sender: TObject);
 
Begin //Смена цвета текста и фона
 
Label4.Font.Color:=clBlack; Label4.Color:=$00BEB8B8; End;
 
Procedure TForm4.Label4MouseMove
 
(Sender: TObject; Shift: TShiftState; X,Y: Integer); //Смена цвета текста и фона
 
Begin Label4.Font.Color:=clGreen; Label4.Color:=clWhite; End; End.

@legenda121 · 13.05.2016, 17:38 **[ТС]**

Форма 5. (Раздел 1)

Pascal

Unit Unit5;
 
{$mode objfpc}{$H+} Interface Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
ExtCtrls, Buttons;
 
Type{ TForm5 }TForm5 = class(TForm)
 
BitBtn1: TBitBtn;BitBtn2: TBitBtn;Button1: TButton; Button2: TButton;
 
Button3: TButton;Button4: TButton;Button5: TButton;Label1: TLabel;
 
Memo1: TMemo; Memo2: TMemo; Memo3: TMemo;
 
Procedure BitBtn1Click(Sender: TObject); Procedure BitBtn2Click(Sender: TObject);
 
Procedure Button1Click(Sender: TObject);Procedure Button2Click(Sender: TObject);
 
Procedure Button3Click(Sender: TObject);Procedure Button4Click(Sender: TObject);
 
Procedure Button5Click(Sender: TObject);Procedure FormCreate(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var Form5: TForm5; Implementation
 
Uses Unit2,Unit6,Unit14;
 
{$R *.lfm} { TForm5 }
 
 
 
Procedure TForm5.FormCreate(Sender: TObject); //открытие формы 5
 
Begin //(Раздел 1)
 
Memo1.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_1\abz_1.txt');
 
Memo2.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_1\abz_2.txt');
 
Memo3.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_1\abz_3.txt');
 
Memo1.Visible:=True; Memo2.Visible:=False; Memo3.Visible:=False;
 
Button1.Visible:=True; Button2.Visible:=False; Button3.Visible:=False;
 
Button4.Visible:=False; BitBtn2.Visible:=False; End;
 
Procedure TForm5.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin Form5.Hide; Form14.Show; End;
 
Procedure TForm5.BitBtn2Click(Sender: TObject); //Открытие формы 6
 
Begin //(Раздел 2)
 
Form5.Hide; Form6.Show;
 
Form6.Memo1.Visible:=True; Form6.Memo2.Visible:=False;
 
Form6.Memo3.Visible:=False; Form6.Memo4.Visible:=False;
 
Form6.Button1.Visible:=True; Form6.Button2.Visible:=False;
 
Form6.Button3.Visible:=False; Form6.Button4.Visible:=False;
 
Form6.Button5.Visible:=False; Form6.Button6.Visible:=False;
 
Form6.BitBtn2.Visible:=False; Form6.BitBtn3.Visible:=False;
 
End;
 
Procedure TForm5.Button1Click(Sender: TObject); //Смена мемо_1 на мемо_2
 
Begin Memo1.Visible:=False; Memo2.Visible:=True;
 
Button1.Visible:=False; Button2.Visible:=True; Button3.Visible:=True; End;
 
Procedure TForm5.Button2Click(Sender: TObject); //Смена мемо_2 на мемо_1
 
Begin Memo1.Visible:=True; Memo2.Visible:=False;
 
Button1.Visible:=True; Button2.Visible:=False; Button3.Visible:=False; End;
 
Procedure TForm5.Button3Click(Sender: TObject); //Смена мемо_2 на мемо_3
 
Begin Memo2.Visible:=False; Memo3.Visible:=True;
 
Button2.Visible:=False; Button3.Visible:=False;
 
Button4.Visible:=True; BitBtn2.Visible:=True; End;
 
Procedure TForm5.Button4Click(Sender: TObject); //Смена мемо_3 на мемо_2
 
Begin Memo3.Visible:=False; Memo2.Visible:=True;
 
Button2.Visible:=True; Button3.Visible:=True;
 
Button4.Visible:=False; BitBtn2.Visible:=False; End;
 
Procedure TForm5.Button5Click(Sender: TObject); //открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show; Form5.Hide; End; End.

Добавлено через 55 секунд
Форма 6. (Раздел 2)

Pascal

Unit Unit6; {$mode objfpc}{$H+} Interface Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
Buttons; Type
 
{ TForm6 }TForm6 = class(TForm)
 
BitBtn1: TBitBtn;BitBtn2: TBitBtn;BitBtn3: TBitBtn;Button1: TButton;Button2: TButton;
 
Button3: TButton; Button4: TButton;Button5: TButton;Button6: TButton; Button7: TButton;
 
Label1: TLabel;Memo1: TMemo;Memo2: TMemo;Memo3: TMemo;Memo4: TMemo;
 
Procedure BitBtn1Click(Sender: TObject);Procedure BitBtn2Click(Sender: TObject);
 
Procedure BitBtn3Click(Sender: TObject);Procedure Button1Click(Sender: TObject);
 
Procedure Button2Click(Sender: TObject);Procedure Button3Click(Sender: TObject);
 
Procedure Button4Click(Sender: TObject);Procedure Button5Click(Sender: TObject);
 
Procedure Button6Click(Sender: TObject);Procedure Button7Click(Sender: TObject);
 
Procedure FormCreate(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var Form6: TForm6; Implementation
 
Uses Unit2,Unit5,Unit8,Unit14;
 
{$R *.lfm}{ TForm6 }
 
Procedure TForm6.FormCreate(Sender: TObject); //Открытие формы 6
 
Begin
 
Memo1.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_2\abz_1.txt');
 
Memo2.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_2\abz_2.txt');
 
Memo3.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_2\abz_3.txt');
 
Memo4.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_2\abz_4.txt');
 
Button1.Visible:=True; Memo1.Visible:=True;
 
Button2.Visible:=False; Memo2.Visible:=False;
 
Button3.Visible:=False; Memo3.Visible:=False;
 
Button4.Visible:=False; Memo4.Visible:=False;
 
Button5.Visible:=False; BitBtn2.Visible:=False;
 
Button6.Visible:=False;
 
End;
 
Procedure TForm6.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin
 
Form6.Hide; Form14.Show; End;
 
Procedure TForm6.BitBtn2Click(Sender: TObject); //Открытие формы 5
 
Begin //(Раздел 1)
 
Form5.Memo1.Visible:=True; Form5.Button1.Visible:=True;
 
Form5.Memo2.Visible:=False; Form5.Button2.Visible:=False;
 
Form5.Memo3.Visible:=False; Form5.Button3.Visible:=False;
 
Form5.Button4.Visible:=False; Form5.Show;
 
Form5.BitBtn2.Visible:=False; Form6.Hide; End;
 
Procedure TForm6.BitBtn3Click(Sender: TObject); //Открытие формы 8
 
Begin //(Раздел 3)
 
Form6.Hide; Form8.Show;
 
Form8.Memo1.Visible:=True; Form8.Button1.Visible:=True;
 
Form8.Memo2.Visible:=False; Form8.Button2.Visible:=False;
 
Form8.Memo3.Visible:=False; Form8.Button3.Visible:=False;
 
Form8.Memo4.Visible:=False; Form8.Button4.Visible:=False;
 
Form8.BitBtn2.Visible:=False; Form8.Button5.Visible:=False;
 
Form8.BitBtn3.Visible:=False; Form8.Button6.Visible:=False; End;
 
Procedure TForm6.Button1Click(Sender: TObject); //Смена мемо_1 на мемо_2
 
Begin
 
Memo1.Visible:=False; Memo2.Visible:=True;
 
Button1.Visible:=False; Button2.Visible:=True;
 
Button3.Visible:=True;
 
End;
 
Procedure TForm6.Button2Click(Sender: TObject); //Смена мемо_2 на мемо_1
 
Begin Memo1.Visible:=True; Memo2.Visible:=False;
 
Button1.Visible:=True; Button2.Visible:=False;
 
Button3.Visible:=False; End;
 
Procedure TForm6.Button3Click(Sender: TObject); //Смена мемо_2 на мемо_3
 
Begin Memo2.Visible:=False; Memo3.Visible:=True;
 
Button2.Visible:=False; Button3.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True; End;
 
Procedure TForm6.Button4Click(Sender: TObject); //Смена мемо_3 на мемо_2
 
Begin Memo2.Visible:=True; Memo3.Visible:=False;
 
Button2.Visible:=True; Button3.Visible:=True;
 
Button4.Visible:=False; Button5.Visible:=False; End;
 
Procedure TForm6.Button5Click(Sender: TObject); //Смена мемо_3 на мемо_4
 
Begin Memo3.Visible:=False; Memo4.Visible:=True;
 
Button4.Visible:=False; Button5.Visible:=False;
 
Button6.Visible:=True; BitBtn2.Visible:=True; BitBtn3.Visible:=True; End;
 
Procedure TForm6.Button6Click(Sender: TObject); //Смена мемо_4 на мемо_3
 
Begin Memo3.Visible:=True; Memo4.Visible:=False; Button4.Visible:=True;
 
Button5.Visible:=True; Button6.Visible:=False; BitBtn2.Visible:=False;
 
BitBtn3.Visible:=False; End;
 
Procedure TForm6.Button7Click(Sender: TObject);
 
Begin Form2.Show; Form6.Hide; End; End.

@legenda121 · 13.05.2016, 17:39 **[ТС]**

Форма 7. (Тест 1)

Pascal

Unit Unit7; {$mode objfpc}{$H+} Interface
 
Uses Classes, SysUtils, FileUtil, RTTICtrls, Forms, Controls, Graphics, Dialogs,
 
StdCtrls, ExtCtrls, Buttons;
 
Type { TForm7 }
 
TForm7 = class(TForm) BitBtn1: TBitBtn; Button2: TButton; Button3: TButton;
 
Button4: TButton;Button5: TButton;Button6: TButton;Button7: TButton;Button8: TButton;
 
Button9: TButton;Button10: TButton; Button11: TButton; Image1: TImage;
 
Image2: TImage;Image3: TImage;Image4: TImage;Image5: TImage; Image6: TImage;
 
Image7: TImage; Image8: TImage;Image9: TImage; Image10: TImage;Memo1: TMemo;
 
Memo2: TMemo; Memo3: TMemo;Memo4: TMemo;Memo5: TMemo;Memo6: TMemo;
 
Memo7: TMemo;Memo8: TMemo;Memo9: TMemo;Memo10: TMemo;
 
RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton;
 
RadioButton4: TRadioButton; RadioButton5: TRadioButton; RadioButton6: TRadioButton;
 
RadioButton7: TRadioButton; RadioButton8: TRadioButton; RadioButton9: TRadioButton;
 
RadioButton10: TRadioButton; RadioButton11: TRadioButton; RadioButton12: TRadioButton;
 
RadioButton13: TRadioButton; RadioButton14: TRadioButton; RadioButton15: TRadioButton;
 
RadioButton16: TRadioButton; RadioButton17: TRadioButton; RadioButton18: TRadioButton;
 
RadioButton19: TRadioButton; RadioButton20: TRadioButton; RadioButton21: TRadioButton;
 
RadioButton22: TRadioButton; RadioButton23: TRadioButton; RadioButton24: TRadioButton;
 
RadioButton25: TRadioButton; RadioButton26: TRadioButton; RadioButton27: TRadioButton;
 
RadioButton28: TRadioButton; RadioButton29: TRadioButton; RadioButton30: TRadioButton;
 
Procedure BitBtn1Click(Sender: TObject); Procedure Button2Click(Sender: TObject);
 
Procedure Button3Click(Sender: TObject); Procedure Button4Click(Sender: TObject);
 
Procedure Button5Click(Sender: TObject); Procedure Button6Click(Sender: TObject);
 
Procedure Button7Click(Sender: TObject); Procedure Button8Click(Sender: TObject);
 
Procedure Button9Click(Sender: TObject); Procedure Button10Click(Sender: TObject);
 
Procedure Button11Click(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var Form7: TForm7;k:integer;
 
Implementation Uses Unit11,Unit14; {$R *.lfm}{ TForm7 }
 
Procedure TForm7.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin Form7.Hide; Form14.Show; End;
 
Procedure TForm7.Button2Click(Sender: TObject); //Ответ на 2-ой вопрос
 
Begin If Radiobutton4.Checked=True then Inc(k);
 
Radiobutton4.Visible:=False; Memo2.Visible:=False;
 
Radiobutton5.Visible:=False; Memo3.Visible:=True;
 
Radiobutton6.Visible:=False; Image2.visible:=False;
 
Radiobutton7.Visible:=True; Image3.visible:=True;
 
Radiobutton8.Visible:=True; Button2.Visible:=False;
 
Radiobutton9.Visible:=True; Button3.Visible:=True; End;
 
Procedure TForm7.Button3Click(Sender: TObject); //Ответ на 3-ий вопрос
 
Begin If Radiobutton7.Checked=True then Inc(k);
 
Radiobutton7.Visible:=False; Memo3.Visible:=False;
 
Radiobutton8.Visible:=False; Memo4.Visible:=True;
 
Radiobutton9.Visible:=False; Image3.visible:=False;
 
Radiobutton10.Visible:=True; Image4.visible:=True;
 
Radiobutton11.Visible:=True; Button3.Visible:=False;
 
Radiobutton12.Visible:=True; Button4.Visible:=True; End;
 
Procedure TForm7.Button4Click(Sender: TObject); //Ответ на 4-ый вопрос
 
Begin If radiobutton11.Checked=True then Inc(k);
 
Radiobutton10.Visible:=False; Memo4.Visible:=False;
 
Radiobutton11.Visible:=False; Memo5.Visible:=True;
 
Radiobutton12.Visible:=False; Image4.visible:=False;
 
Radiobutton13.Visible:=True; Image5.visible:=True;
 
Radiobutton14.Visible:=True; Button4.Visible:=False;
 
Radiobutton15.Visible:=True; Button5.Visible:=True; End;
 
Procedure TForm7.Button5Click(Sender: TObject); //Ответ на 5-ый вопрос
 
Begin If Radiobutton14.Checked=True then Inc(k);
 
Radiobutton13.Visible:=False; Memo5.Visible:=False;
 
Radiobutton14.Visible:=False; Memo6.Visible:=True;
 
Radiobutton15.Visible:=False; Image5.visible:=False;
 
Radiobutton16.Visible:=True; Image6.visible:=True;
 
Radiobutton17.Visible:=True; Button5.Visible:=False;
 
Radiobutton18.Visible:=True; Button6.Visible:=True; End;
 
Procedure TForm7.Button6Click(Sender: TObject); //Ответ на 6-ой вопрос
 
Begin If Radiobutton16.Checked=True then Inc(k);
 
Radiobutton16.Visible:=False; Memo6.Visible:=False;
 
Radiobutton17.Visible:=False; Memo7.Visible:=True;
 
Radiobutton18.Visible:=False; Image6.visible:=False;
 
Radiobutton19.Visible:=True; Image7.visible:=True;
 
Radiobutton20.Visible:=True; Button6.Visible:=False;
 
Radiobutton21.Visible:=True; Button7.Visible:=True; End;
 
Procedure TForm7.Button7Click(Sender: TObject); //Ответ на 7-ой вопрос
 
Begin If radiobutton20.Checked=True then Inc(k);
 
Radiobutton19.Visible:=False; Memo7.Visible:=False;
 
Radiobutton20.Visible:=False; Memo8.Visible:=True;
 
Radiobutton21.Visible:=False; Image7.visible:=False;
 
Radiobutton22.Visible:=True; Image8.visible:=True;
 
Radiobutton23.Visible:=True; Button7.Visible:=False;
 
Radiobutton24.Visible:=True; Button8.Visible:=True; End;
 
 
 
Procedure TForm7.Button8Click(Sender: TObject); //Ответ на 8-ой вопрос
 
Begin
 
If Radiobutton22.Checked=True then
 
Inc(k);
 
Radiobutton22.Visible:=False; Memo8.Visible:=False;
 
Radiobutton23.Visible:=False; Memo9.Visible:=True;
 
Radiobutton24.Visible:=False; Image8.visible:=False;
 
Radiobutton25.Visible:=True; Image9.visible:=True;
 
Radiobutton26.Visible:=True; Button8.Visible:=False;
 
Radiobutton27.Visible:=True; Button9.Visible:=True;
 
End;
 
Procedure TForm7.Button9Click(Sender: TObject); //Ответ на 9-ый вопрос
 
Begin
 
If radiobutton25.Checked=True then
 
Inc(k);
 
Radiobutton25.Visible:=False; Memo9.Visible:=False;
 
Radiobutton26.Visible:=False; Memo10.Visible:=True;
 
Radiobutton27.Visible:=False; Image9.visible:=False;
 
Radiobutton28.Visible:=True; Image10.visible:=True;
 
Radiobutton29.Visible:=True; Button9.Visible:=False;
 
Radiobutton30.Visible:=True; Button10.Visible:=True;
 
End;
 
Procedure TForm7.Button10Click(Sender: TObject); //Ответ на 10-ой вопрос
 
Begin //и переход на форму 13 (Тест)
 
If radiobutton30.Checked=True then
 
Inc(k);
 
Form11.Label2.Caption:='Вы прошли тест и набрали '+inttostr(k)+' баллов.';
 
If k>8 then
 
Form11.Label3.Caption:='Ваша оценка 5'+' '+'Отлично!';
 
If k>=6 then
 
If k<=8 then
 
Form11.Label3.Caption:='Ваша оценка 4'+' '+'Хорошо!';
 
If k<=6 then
 
If k>=3 then
 
Form11.Label3.Caption:='Ваша оценка 3'+' '+'Неплохо!';
 
If k<4 then
 
Form11.Label3.Caption:='Ваша оценка 2'+' '+'Ничего, попробуй ещё раз!';
 
k:=0; Form7.Hide;
 
Form11.Show;
 
RadioButton1.Checked:=False; RadioButton11.Checked:=False; RadioButton21.Checked:=False;
 
RadioButton2.Checked:=False; RadioButton12.Checked:=False; RadioButton22.Checked:=False;
 
RadioButton3.Checked:=False; RadioButton13.Checked:=False; RadioButton23.Checked:=False;
 
RadioButton4.Checked:=False; RadioButton14.Checked:=False; RadioButton24.Checked:=False;
 
RadioButton5.Checked:=False; RadioButton15.Checked:=False; RadioButton25.Checked:=False;
 
RadioButton6.Checked:=False; RadioButton16.Checked:=False; RadioButton26.Checked:=False;
 
RadioButton7.Checked:=False; RadioButton17.Checked:=False; RadioButton27.Checked:=False;
 
RadioButton8.Checked:=False; RadioButton18.Checked:=False; RadioButton28.Checked:=False;
 
RadioButton9.Checked:=False; RadioButton19.Checked:=False; RadioButton29.Checked:=False;
 
RadioButton10.Checked:=False; RadioButton20.Checked:=False; RadioButton30.Checked:=False;
 
RadioButton28.Visible:=False; RadioButton29.Visible:=False; RadioButton30.Visible:=False;
 
RadioButton1.Visible:=True; RadioButton2.Visible:=True; RadioButton3.Visible:=True;
 
Memo1.Visible:=True; Memo10.Visible:=False;
 
Image1.Visible:=True; Image10.Visible:=False;
 
Button11.Visible:=True; Button10.Visible:=False; k:=0;
 
End;
 
Procedure TForm7.Button11Click(Sender: TObject); //Ответ на 1-ый вопрос
 
Begin
 
If radiobutton3.Checked=True then
 
Inc(k);
 
Radiobutton1.Visible:=False; Memo1.Visible:=False;
 
Radiobutton2.Visible:=False; Memo2.Visible:=True;
 
Radiobutton4.Visible:=True; Image2.visible:=True;
 
Radiobutton5.Visible:=True; Button11.Visible:=False;
 
Radiobutton6.Visible:=True; Button2.Visible:=True;
 
End;
{ TForm7 }
 
End.
 
[size="1"][color="grey"][I]Добавлено через 52 секунды[/I][/color][/size]
Форма 8. (Раздел 3)
 
Unit Unit8;
 
{$mode objfpc}{$H+}
 
Interface
 
Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
Buttons;
 
Type
 
{ TForm8 }
 
TForm8 = class(TForm)
 
BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; Button1: TButton; Button7: TButton;
 
Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton;
 
Label1: TLabel; Memo1: TMemo; Memo2: TMemo; Memo3: TMemo; Memo4: TMemo;
 
Procedure BitBtn1Click(Sender: TObject); Procedure BitBtn2Click(Sender: TObject);
 
Procedure BitBtn3Click(Sender: TObject); Procedure Button1Click(Sender: TObject);
 
Procedure Button2Click(Sender: TObject); Procedure Button3Click(Sender: TObject);
 
Procedure Button4Click(Sender: TObject); Procedure Button5Click(Sender: TObject);
 
Procedure Button6Click(Sender: TObject); Procedure Button7Click(Sender: TObject);
 
Procedure FormCreate(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var
 
Form8: TForm8;
 
Implementation
 
Uses Unit2,Unit6,Unit9,Unit14;
 
{$R *.lfm}
 
{ TForm8 }
 
Procedure TForm8.FormCreate(Sender: TObject); //Открытие формы 8
 
Begin //(Раздел 3)
 
Memo1.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_1.txt');
 
Memo2.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_2.txt');
 
Memo3.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_3.txt');
 
Memo4.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_4.txt');
 
Memo1.Visible:=True; Button1.Visible:=True;
 
Memo2.Visible:=False; Button2.Visible:=False;
 
Memo3.Visible:=False; Button3.Visible:=False;
 
Memo4.Visible:=False; Button4.Visible:=False;
 
BitBtn2.Visible:=False; Button5.Visible:=False;
 
BitBtn3.Visible:=False; Button6.Visible:=False;
 
End;
 
Procedure TForm8.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin
 
Form8.Hide;
 
Form14.Show;
 
End;
 
Procedure TForm8.BitBtn2Click(Sender: TObject); //Открытие формы 6
 
Begin //(Раздел 2)
 
Form6.Show; Form8.Hide;
 
Form6.Memo1.Visible:=True; Form6.Memo2.Visible:=False;
 
Form6.Memo3.Visible:=False; Form6.Memo4.Visible:=False;
 
Form6.Button1.Visible:=True; Form6.BitBtn2.Visible:=False;
 
Form6.Button2.Visible:=False; Form6.Button3.Visible:=False;
 
Form6.Button4.Visible:=False; Form6.Button5.Visible:=False;
 
Form6.Button6.Visible:=False; Form6.BitBtn2.Visible:=False;
 
Form6.BitBtn3.Visible:=False;
 
End;
 
Procedure TForm8.BitBtn3Click(Sender: TObject); //Открытие формы 9
 
Begin //(Раздел 4)
 
Form8.Hide;
 
Form9.Show;
 
Form9.StaticText1.Visible:=True; Form9.Image2.Visible:=True;
 
Form9.StaticText2.Visible:=False; Form9.Image3.Visible:=False;
 
Form9.StaticText3.Visible:=False; Form9.Image4.Visible:=False;
 
Form9.StaticText4.Visible:=False; Form9.Image5.Visible:=False;
 
Form9.StaticText5.Visible:=False; Form9.Image6.Visible:=False;
 
Form9.StaticText6.Visible:=False; Form9.Image7.Visible:=False;
 
Form9.StaticText7.Visible:=False; Form9.Image8.Visible:=False;
 
Form9.StaticText8.Visible:=False; Form9.Image9.Visible:=False;
 
Form9.StaticText9.Visible:=False; Form9.Image10.Visible:=False;
 
Form9.StaticText10.Visible:=False; Form9.Image11.Visible:=False;
 
Form9.StaticText11.Visible:=False; Form9.Image12.Visible:=False;
 
Form9.StaticText12.Visible:=False; Form9.Image13.Visible:=False;
 
Form9.StaticText13.Visible:=False; Form9.Image14.Visible:=False;
 
Form9.StaticText14.Visible:=False; Form9.Image15.Visible:=False;
 
Form9.StaticText15.Visible:=False; Form9.Image16.Visible:=False;
 
Form9.Button1.Visible:=True; Form9.Button15.Visible:=False;
 
Form9.Button2.Visible:=False; Form9.Button16.Visible:=False;
 
Form9.Button3.Visible:=False; Form9.Button17.Visible:=False;
 
Form9.Button4.Visible:=False; Form9.Button18.Visible:=False;
 
Form9.Button5.Visible:=False; Form9.Button19.Visible:=False;
 
Form9.Button6.Visible:=False; Form9.Button20.Visible:=False;
 
Form9.Button7.Visible:=False; Form9.Button21.Visible:=False;
 
Form9.Button8.Visible:=False; Form9.Button22.Visible:=False;
 
Form9.Button9.Visible:=False; Form9.Button23.Visible:=False;
 
Form9.Button10.Visible:=False; Form9.Button24.Visible:=False;
 
Form9.Button11.Visible:=False; Form9.Button25.Visible:=False;
 
Form9.Button12.Visible:=False; Form9.Button26.Visible:=False;
 
Form9.Button13.Visible:=False; Form9.Button27.Visible:=False;
 
Form9.Button14.Visible:=False; Form9.Button28.Visible:=False;
 
Form9.BitBtn2.Visible:=False;
 
End;
 
Procedure TForm8.Button1Click(Sender: TObject); //Смена мемо_1 на мемо_2
 
Begin
 
Memo1.Visible:=False; Memo2.Visible:=True;
 
Button1.Visible:=False; Button2.Visible:=True;
 
Button3.Visible:=True;
 
End;
 
Procedure TForm8.Button2Click(Sender: TObject); //Смена мемо_2 на мемо_1
 
Begin
 
Memo1.Visible:=True; Memo2.Visible:=False;
 
Button1.Visible:=True; Button2.Visible:=False;
 
Button3.Visible:=False;
 
End;
 
Procedure TForm8.Button3Click(Sender: TObject); //Смена мемо_2 на мемо_3
 
Begin
 
Memo2.Visible:=False; Memo3.Visible:=True;
 
Button2.Visible:=False; Button3.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True;
 
End;
 
Procedure TForm8.Button4Click(Sender: TObject); //Смена мемо_3 на мемо_2
 
Begin
 
Memo2.Visible:=True; Memo3.Visible:=False;
 
Button2.Visible:=True; Button3.Visible:=True;
 
Button4.Visible:=False; Button5.Visible:=False;
 
End;
 
Procedure TForm8.Button5Click(Sender: TObject); //Смена мемо_3 на мемо_4
 
Begin
 
Memo3.Visible:=False; Memo4.Visible:=True;
 
Button4.Visible:=False; BitBtn2.Visible:=True;
 
Button5.Visible:=False; BitBtn3.Visible:=True;
 
Button6.Visible:=True;
 
End;
 
Procedure TForm8.Button6Click(Sender: TObject); //Смена мемо_4 на мемо_3
 
Begin
 
Memo3.Visible:=True; Memo4.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True;
 
Button6.Visible:=False; BitBtn2.Visible:=False;
 
BitBtn3.Visible:=False;
 
End;
 
Procedure TForm8.Button7Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show;
 
Form8.Hide;
 
End;
 
End.

@legenda121 · 13.05.2016, 17:41 **[ТС]**

Форма 9. (Раздел 4)

Pascal

Unit Unit9;
 
{$mode objfpc}{$H+}
 
Interface
 
Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
 
StdCtrls, ExtCtrls, Buttons;
 
Type
 
{ TForm9 }
 
TForm9 = class(TForm)
 
BitBtn1: TBitBtn; BitBtn2: TBitBtn; Button1: TButton; Button2: TButton;
 
Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton;
 
Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton;
 
Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton;
 
Button15: TButton; Button16: TButton; Button17: TButton; Button18: TButton;
 
Button19: TButton; Button20: TButton; Button21: TButton; Button22: TButton;
 
Button23: TButton; Button24: TButton; Button25: TButton; Button26: TButton;
 
Button27: TButton; Button28: TButton; Button29: TButton; Image1: TImage;
 
Image2: TImage; Image3: TImage; Image4: TImage; Image5: TImage;
 
Image6: TImage; Image7: TImage; Image8: TImage; Image9: TImage;
 
Image10: TImage; Image11: TImage; Image12: TImage; Image13: TImage;
 
Image14: TImage; Image15: TImage; Image16: TImage; StaticText1: TStaticText;
 
StaticText2: TStaticText; StaticText3: TStaticText;
 
StaticText4: TStaticText; StaticText5: TStaticText;
 
StaticText6: TStaticText; StaticText7: TStaticText;
 
StaticText8: TStaticText; StaticText9: TStaticText;
 
StaticText10: TStaticText; StaticText11: TStaticText;
 
StaticText12: TStaticText; StaticText13: TStaticText;
 
StaticText14: TStaticText; StaticText15: TStaticText;
 
Procedure FormCreate(Sender: TObject);Procedure BitBtn1Click(Sender: TObject);
 
Procedure BitBtn2Click(Sender: TObject);Procedure Button1Click(Sender: TObject);
 
Procedure Button2Click(Sender: TObject);Procedure Button3Click(Sender: TObject);
 
Procedure Button4Click(Sender: TObject);Procedure Button5Click(Sender: TObject);
 
Procedure Button6Click(Sender: TObject);Procedure Button7Click(Sender: TObject);
 
Procedure Button8Click(Sender: TObject);Procedure Button9Click(Sender: TObject); Procedure Button10Click(Sender: TObject);Procedure Button11Click(Sender: TObject);
 
Procedure Button12Click(Sender: TObject);Procedure Button13Click(Sender: TObject); Procedure Button14Click(Sender: TObject);Procedure Button15Click(Sender: TObject); Procedure Button16Click(Sender: TObject);Procedure Button17Click(Sender: TObject);
 
Procedure Button18Click(Sender: TObject);Procedure Button19Click(Sender: TObject);
 
Procedure Button20Click(Sender: TObject);Procedure Button21Click(Sender: TObject);
 
Procedure Button22Click(Sender: TObject) Procedure Button23Click(Sender: TObject);
 
Procedure Button24Click(Sender: TObject);Procedure Button25Click(Sender: TObject);
 
Procedure Button26Click(Sender: TObject);Procedure Button27Click(Sender: TObject);
 
Procedure Button28Click(Sender: TObject);Procedure Button29Click(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;Var
 
Form9: TForm9;
 
Implementation
 
Uses Unit2,Unit8,Unit14;
 
{$R *.lfm}
 
{ TForm9 }
 
Procedure TForm9.FormCreate(Sender: TObject); //Открытие формы 9
 
Begin //(Раздел 4)
 
StaticText1.Visible:=True; Image1.Visible:=True;
 
StaticText2.Visible:=False; Image2.Visible:=False;
 
StaticText3.Visible:=False; Image3.Visible:=False;
 
StaticText4.Visible:=False; Image4.Visible:=False;
 
StaticText5.Visible:=False; Image5.Visible:=False;
 
StaticText6.Visible:=False; Image6.Visible:=False;
 
StaticText7.Visible:=False; Image7.Visible:=False;
 
StaticText8.Visible:=False; Image8.Visible:=False;
 
StaticText9.Visible:=False; Image9.Visible:=False;
 
StaticText10.Visible:=False; Image10.Visible:=False;
 
StaticText11.Visible:=False; Image11.Visible:=False;
 
StaticText12.Visible:=False; Image12.Visible:=False;
 
StaticText13.Visible:=False; Image13.Visible:=False;
 
StaticText14.Visible:=False; Image14.Visible:=False;
 
StaticText15.Visible:=False; Image15.Visible:=False;
 
Button1.Visible:=True; Button15.Visible:=False;
 
Button2.Visible:=False; Button16.Visible:=False;
 
Button3.Visible:=False; Button17.Visible:=False;
 
Button4.Visible:=False; Button18.Visible:=False;
 
Button5.Visible:=False; Button19.Visible:=False;
 
Button6.Visible:=False; Button20.Visible:=False;
 
Button7.Visible:=False; Button21.Visible:=False;
 
Button8.Visible:=False; Button22.Visible:=False;
 
Button9.Visible:=False; Button23.Visible:=False;
 
Button10.Visible:=False; Button24.Visible:=False;
 
Button11.Visible:=False; Button25.Visible:=False;
 
Button12.Visible:=False; Button26.Visible:=False;
 
Button13.Visible:=False; Button27.Visible:=False;
 
Button14.Visible:=False; Button28.Visible:=False;
 
End;
 
Procedure TForm9.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin
 
Form9.Hide;
 
Form14.Show;
 
End;
 
Procedure TForm9.BitBtn2Click(Sender: TObject); //Открытие формы 8
 
Begin //(Раздел 3)
 
Form8.Show;
 
Form9.Hide;
 
Form8.Memo1.Visible:=True; Form8.Button1.Visible:=True;
 
Form8.Memo2.Visible:=False; Form8.Button2.Visible:=False;
 
Form8.Memo3.Visible:=False; Form8.Button3.Visible:=False;
 
Form8.Memo4.Visible:=False; Form8.Button4.Visible:=False;
 
Form8.BitBtn2.Visible:=False; Form8.Button5.Visible:=False;
 
Form8.BitBtn3.Visible:=False; Form8.Button6.Visible:=False;
 
End;
 
Procedure TForm9.Button1Click(Sender: TObject); //Смена memo_1 и image_1
 
Begin //на memo_2 и image_2
 
StaticText1.Visible:=False; Image2.Visible:=False;
 
StaticText2.Visible:=True; Image3.Visible:=True;
 
Button1.Visible:=False; Button2.Visible:=True;
 
Button3.Visible:=True;
 
End;
 
Procedure TForm9.Button2Click(Sender: TObject); //Смена memo_2 и image_2
 
Begin //на memo_1 и image_1
 
StaticText2.Visible:=False; Image3.Visible:=False;
 
StaticText1.Visible:=True; Image2.Visible:=True;
 
Button2.Visible:=False; Button3.Visible:=False;
 
Button1.Visible:=True;
 
End;
 
Procedure TForm9.Button3Click(Sender: TObject); //Смена memo_2 и image_2
 
Begin //на memo_3 и image_3
 
StaticText2.Visible:=False; Image3.Visible:=False;
 
StaticText3.Visible:=True; Image4.Visible:=True;
 
Button2.Visible:=False; Button3.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True;
 
End;
 
Procedure TForm9.Button4Click(Sender: TObject); //Смена memo_3 и image_3
 
Begin //на memo_2 и image_2
 
StaticText3.Visible:=False; Image4.Visible:=False;
 
StaticText2.Visible:=True; Image3.Visible:=True;
 
Button4.Visible:=False; Button5.Visible:=False;
 
Button2.Visible:=True; Button3.Visible:=True;
 
End;
 
Procedure TForm9.Button5Click(Sender: TObject); //Смена memo_3 и image_3
 
Begin //на memo_4 и image_4
 
StaticText3.Visible:=False; Image4.Visible:=False;
 
StaticText4.Visible:=True; Image5.Visible:=True;
 
Button4.Visible:=False; Button5.Visible:=False;
 
Button6.Visible:=True; Button7.Visible:=True;
 
End;
 
Procedure TForm9.Button6Click(Sender: TObject); //Смена memo_4 и image_4
 
Begin //на memo_3 и image_3
 
StaticText4.Visible:=False; Image5.Visible:=False;
 
StaticText3.Visible:=True; Image4.Visible:=True;
 
Button6.Visible:=False; Button7.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True;
 
End;
 
Procedure TForm9.Button7Click(Sender: TObject); //Смена memo_4 и image_4
 
Begin //на memo_5 и image_5
 
StaticText4.Visible:=False; Image5.Visible:=False;
 
StaticText5.Visible:=True; Image6.Visible:=True;
 
Button6.Visible:=False; Button7.Visible:=False;
 
Button8.Visible:=True; Button9.Visible:=True;
 
End;
 
Procedure TForm9.Button8Click(Sender: TObject); //Смена memo_5 и image_5
 
Begin //на memo_4 и image_4
 
StaticText5.Visible:=False; Image6.Visible:=False;
 
StaticText4.Visible:=True; Image5.Visible:=True;
 
Button8.Visible:=False; Button9.Visible:=False;
 
Button6.Visible:=True; Button7.Visible:=True;
 
End;
 
Procedure TForm9.Button9Click(Sender: TObject); //Смена memo_5 и image_5
 
Begin //на memo_6 и image_6
 
StaticText5.Visible:=False; Image6.Visible:=False;
 
StaticText6.Visible:=True; Image7.Visible:=True;
 
Button8.Visible:=False; Button9.Visible:=False;
 
Button10.Visible:=True; Button11.Visible:=True;
 
End;
 
Procedure TForm9.Button10Click(Sender: TObject); //Смена memo_6 и
 
//image_6
 
Begin //на memo_5 и image_5
 
StaticText6.Visible:=False; Image7.Visible:=False;
 
StaticText5.Visible:=True; Image6.Visible:=True;
 
Button10.Visible:=False; Button11.Visible:=False;
 
Button8.Visible:=True; Button9.Visible:=True;
 
End;
 
Procedure TForm9.Button11Click(Sender: TObject); //Смена memo_6 и
 
//image_6
 
Begin //на memo_7 и image_7
 
StaticText6.Visible:=False; Image7.Visible:=False;
 
StaticText7.Visible:=True; Image8.Visible:=True;
 
Button10.Visible:=False; Button11.Visible:=False;
 
Button12.Visible:=True; Button13.Visible:=True;
 
End;
 
Procedure TForm9.Button12Click(Sender: TObject); //Смена memo_7 и
 
//image_7
 
Begin //на memo_6 и image_6
 
StaticText7.Visible:=False; Image8.Visible:=False;
 
StaticText6.Visible:=True; Image7.Visible:=True;
 
Button12.Visible:=False; Button13.Visible:=False;
 
Button10.Visible:=True; Button11.Visible:=True;
 
End;
 
Procedure TForm9.Button13Click(Sender: TObject); //Смена memo_7 и
 
//image_7
 
Begin //на memo_8 и image_8
 
StaticText7.Visible:=False; Image8.Visible:=False;
 
StaticText8.Visible:=True; Image9.Visible:=True;
 
Button12.Visible:=False; Button13.Visible:=False;
 
Button14.Visible:=True; Button15.Visible:=True;
 
End;
 
Procedure TForm9.Button14Click(Sender: TObject); //Смена memo_8 и
 
//image_8
 
Begin //на memo_7 и image_7
 
StaticText8.Visible:=False; Image9.Visible:=False;
 
StaticText7.Visible:=True; Image8.Visible:=True;
 
Button14.Visible:=False; Button15.Visible:=False;
 
Button12.Visible:=True; Button13.Visible:=True;
 
End;
 
Procedure TForm9.Button15Click(Sender: TObject); //Смена memo_8 и
 
//image_8
 
Begin //на memo_9 и image_9
 
StaticText8.Visible:=False; Image9.Visible:=False;
 
StaticText9.Visible:=True; Image10.Visible:=True;
 
Button14.Visible:=False; Button15.Visible:=False;
 
Button16.Visible:=True; Button17.Visible:=True;
 
End;
 
Procedure TForm9.Button16Click(Sender: TObject); //Смена memo_9 и
 
//image_9
 
Begin //на memo_8 и image_8
 
StaticText9.Visible:=False; Image10.Visible:=False;
 
StaticText8.Visible:=True; Image9.Visible:=True;
 
Button16.Visible:=False; Button17.Visible:=False;
 
Button14.Visible:=True; Button15.Visible:=True;
 
End;
 
Procedure TForm9.Button17Click(Sender: TObject); //Смена memo_9 и
 
//image_9
 
Begin //на memo_10 и image_10
 
StaticText9.Visible:=False; Image10.Visible:=False;
 
StaticText10.Visible:=True; Image11.Visible:=True;
 
Button16.Visible:=False; Button17.Visible:=False;
 
Button18.Visible:=True; Button19.Visible:=True;
 
End;
 
Procedure TForm9.Button18Click(Sender: TObject); //Смена memo_10 и
 
//image_10
 
Begin //на memo_9 и image_9
 
StaticText10.Visible:=False; Image11.Visible:=False;
 
StaticText9.Visible:=True; Image10.Visible:=True;
 
Button18.Visible:=False; Button19.Visible:=False;
 
Button16.Visible:=True; Button17.Visible:=True;
 
End;
 
Procedure TForm9.Button19Click(Sender: TObject); //Смена memo_10 и
 
//image_10
 
Begin //на memo_11 и image_11
 
StaticText10.Visible:=False; Image11.Visible:=False;
 
StaticText11.Visible:=True; Image12.Visible:=True;
 
Button18.Visible:=False; Button19.Visible:=False;
 
Button20.Visible:=True; Button21.Visible:=True;
 
End;
 
Procedure TForm9.Button20Click(Sender: TObject); //Смена memo_11 и
 
//image_11
 
Begin //на memo_10 и image_10
 
StaticText11.Visible:=False; Image12.Visible:=False;
 
StaticText10.Visible:=True; Image11.Visible:=True;
 
Button20.Visible:=False; Button21.Visible:=False;
 
Button18.Visible:=True; Button19.Visible:=True;
 
End;
 
Procedure TForm9.Button21Click(Sender: TObject); //Смена memo_11 и
 
//image_11
 
Begin //на memo_12 и image_12
 
StaticText11.Visible:=False; Image12.Visible:=False;
 
StaticText12.Visible:=True; Image13.Visible:=True;
 
Button20.Visible:=False; Button21.Visible:=False;
 
Button22.Visible:=True; Button23.Visible:=True;
 
End;
 
Procedure TForm9.Button22Click(Sender: TObject); //Смена memo_12 и
 
//image_12
 
Begin //на memo_11 и image_11
 
StaticText12.Visible:=False; Image13.Visible:=False;
 
StaticText11.Visible:=True; Image12.Visible:=True;
 
Button22.Visible:=False; Button23.Visible:=False;
 
Button20.Visible:=True; Button21.Visible:=True;
 
End;
 
Procedure TForm9.Button23Click(Sender: TObject); //Смена memo_12 и image_12
 
Begin //на memo_13 и image_13
 
StaticText12.Visible:=False; Image13.Visible:=False;
 
StaticText13.Visible:=True; Image14.Visible:=True;
 
Button22.Visible:=False; Button23.Visible:=False;
 
Button24.Visible:=True; Button25.Visible:=True;
 
End;
 
Procedure TForm9.Button24Click(Sender: TObject); //Смена memo_13 и
 
//image_13
 
Begin //на memo_12 и image_12
 
StaticText13.Visible:=False; Image14.Visible:=False;
 
StaticText12.Visible:=True; Image13.Visible:=True;
 
Button24.Visible:=False; Button25.Visible:=False;
 
Button22.Visible:=True; Button23.Visible:=True;
 
End;
 
Procedure TForm9.Button25Click(Sender: TObject); //Смена memo_13 и
 
//image_13
 
Begin //на memo_14 и image_14
 
StaticText13.Visible:=False; Image14.Visible:=False;
 
StaticText14.Visible:=True; Image15.Visible:=True;
 
Button24.Visible:=False; Button25.Visible:=False;
 
Button26.Visible:=True; Button27.Visible:=True;
 
End;
 
Procedure TForm9.Button26Click(Sender: TObject); //Смена memo_14 и
 
//image_14
 
Begin //на memo_13 и image_13
 
StaticText14.Visible:=False; Image15.Visible:=False;
 
StaticText13.Visible:=True; Image14.Visible:=True;
 
Button26.Visible:=False; Button27.Visible:=False;
 
Button24.Visible:=True; Button25.Visible:=True;
 
End;
 
Procedure TForm9.Button27Click(Sender: TObject); //Смена memo_14 и
 
//image_14
 
Begin //на memo_15 и image_15
 
StaticText14.Visible:=False; Image15.Visible:=False;
 
StaticText15.Visible:=True; Image16.Visible:=True;
 
Button26.Visible:=False; Button27.Visible:=False;
 
Button28.Visible:=True; BitBtn2.Visible:=True;
 
End;
 
Procedure TForm9.Button28Click(Sender: TObject); //Смена memo_15 и
 
//image_15
 
Begin //на memo_14 и image_14
 
StaticText15.Visible:=False; Image16.Visible:=False;
 
StaticText14.Visible:=True; Image15.Visible:=True;
 
Button28.Visible:=False; Button27.Visible:=True;
 
Button26.Visible:=True; BitBtn2.Visible:=False;
 
End;
 
Procedure TForm9.Button29Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show;
 
Form9.Hide;
 
End;
 
End.

@legenda121 · 13.05.2016, 17:41 **[ТС]**

Форма 11 (Решение Теста)

Pascal

Unit Unit11;
 
{$mode objfpc}{$H+}
 
Interface
 
Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
Type
 
{ TForm11 }
 
TForm11 = class(TForm)
 
Button1: TButton;
 
Button2: TButton;
 
Label1: TLabel;
 
Label2: TLabel;
 
Label3: TLabel;
 
Procedure Button1Click(Sender: TObject);
 
Procedure Button2Click(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
 
 
Var
 
Form11: TForm11; vark:integer;
 
Implementation
 
Uses Unit2,Unit14;
 
{$R *.lfm}
 
{ TForm11 }
 
Procedure TForm11.Button1Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show; Form11.Hide; End;
 
Procedure TForm11.Button2Click(Sender: TObject); //Выход из программы
 
Begin
 
Form11.Hide; Form14.Show; End; End.

Форма 12. (Тест 2);

Pascal

Unit Unit12;
 
{$mode objfpc}{$H+}
 
Interface
 
Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
 
StdCtrls, Buttons;
 
Type
 
{ TForm12 }
 
TForm12 = class(TForm)
 
BitBtn1: TBitBtn; Button2: TButton; Button3: TButton; Button4: TButton;
 
Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton;
 
Button9: TButton; Button10: TButton; Button11: TButton; Image1: TImage;
 
Image2: TImage; Image3: TImage; Image4: TImage; Image5: TImage; Image6: TImage;
 
Image7: TImage; Image8: TImage; Image9: TImage; Image10: TImage; Label1: TLabel;
 
Memo1: TMemo; Memo2: TMemo; Memo3: TMemo; Memo4: TMemo; Memo5: TMemo;
 
Memo6: TMemo; Memo7: TMemo; Memo8: TMemo; Memo9: TMemo; Memo10: TMemo;
 
RadioButton1: TRadioButton; RadioButton2: TRadioButton; RadioButton3: TRadioButton;
 
RadioButton4: TRadioButton;RadioButton5: TRadioButton;RadioButton6: TRadioButton;
 
RadioButton7: TRadioButton;RadioButton8: TRadioButton;RadioButton9: TRadioButton;
 
RadioButton10: TRadioButton;RadioButton11: TRadioButton;RadioButton12: TRadioButton;
 
RadioButton13: TRadioButton;RadioButton14: TRadioButton;RadioButton15: TRadioButton;
 
RadioButton16: TRadioButton;RadioButton17: TRadioButton RadioButton18: TRadioButton;
 
RadioButton19: TRadioButton;RadioButton20: TRadioButton;RadioButton21: TRadioButton;
 
RadioButton22: TRadioButton;RadioButton23: TRadioButton;RadioButton24: TRadioButton;
 
RadioButton25: TRadioButton;RadioButton26: TRadioButton;RadioButton27: TRadioButton; RadioButton28: TRadioButton;RadioButton29: TRadioButton;RadioButton30: TRadioButton;
 
Procedure BitBtn1Click(Sender: TObject);Procedure Button10Click(Sender: TObject);
 
Procedure Button11Click(Sender: TObject);Procedure Button2Click(Sender: TObject); Procedure Button3Click(Sender: TObject);Procedure Button4Click(Sender: TObject);
 
Procedure Button5Click(Sender: TObject);Procedure Button6Click(Sender: TObject);
 
Procedure Button7Click(Sender: TObject);Procedure Button8Click(Sender: TObject);
 
Procedure Button9Click(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var
 
Form12: TForm12;kol:integer;
 
Implementation
 
Uses Unit11,Unit14; {$R *.lfm} { TForm12 }
 
Procedure TForm12.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin Form12.Hide; Form14.Show; End;
 
Procedure TForm12.Button2Click(Sender: TObject); //Ответ на 2-ой вопрос
 
Begin If radiobutton4.Checked=True then Inc(kol);
 
Radiobutton4.Visible:=False; Memo2.Visible:=False;
 
Radiobutton5.Visible:=False; Memo3.Visible:=True;
 
Radiobutton6.Visible:=False; Image2.visible:=False;
 
Radiobutton7.Visible:=True; Image3.visible:=True;
 
Radiobutton8.Visible:=True; Button2.Visible:=False;
 
Radiobutton9.Visible:=True; Button3.Visible:=True; End;
 
Procedure TForm12.Button3Click(Sender: TObject); //Ответ на 3-ий вопрос
 
Begin
 
If radiobutton7.Checked=True then
 
Inc(kol);
 
Radiobutton7.Visible:=False; Memo3.Visible:=False;
 
Radiobutton8.Visible:=False; Memo4.Visible:=True;
 
Radiobutton9.Visible:=False; Image3.visible:=False;
 
Radiobutton10.Visible:=True; Image4.visible:=True;
 
Radiobutton11.Visible:=True; Button3.Visible:=False;
 
Radiobutton12.Visible:=True; Button4.Visible:=True;
 
End;
 
Procedure TForm12.Button4Click(Sender: TObject); //Ответ на 4-ыйй вопрос
 
Begin
 
If radiobutton11.Checked=True then
 
Inc(kol);
 
Radiobutton10.Visible:=False; Memo4.Visible:=False;
 
Radiobutton11.Visible:=False; Memo5.Visible:=True;
 
Radiobutton12.Visible:=False; Image4.visible:=False;
 
Radiobutton13.Visible:=True; Image5.visible:=True;
 
Radiobutton14.Visible:=True; Button4.Visible:=False;
 
Radiobutton15.Visible:=True; Button5.Visible:=True;
 
End;
 
Procedure TForm12.Button5Click(Sender: TObject); //Ответ на 5-ый вопрос
 
Begin
 
If radiobutton14.Checked=True then
 
Inc(kol);
 
Radiobutton13.Visible:=False; Memo5.Visible:=False;
 
Radiobutton14.Visible:=False; Memo6.Visible:=True;
 
Radiobutton15.Visible:=False; Image5.visible:=False;
 
Radiobutton16.Visible:=True; Image6.visible:=True;
 
Radiobutton17.Visible:=True; Button5.Visible:=False;
 
Radiobutton18.Visible:=True; Button6.Visible:=True;
 
End;
 
Procedure TForm12.Button6Click(Sender: TObject); //Ответ на 6-ой вопрос
 
Begin
 
If radiobutton16.Checked=True then
 
Inc(kol);
 
Radiobutton16.Visible:=False; Memo6.Visible:=False;
 
Radiobutton17.Visible:=False; Memo7.Visible:=True;
 
Radiobutton18.Visible:=False; Image6.visible:=False;
 
Radiobutton19.Visible:=True; Image7.visible:=True;
 
Radiobutton20.Visible:=True; Button6.Visible:=False;
 
Radiobutton21.Visible:=True; Button7.Visible:=True;
 
End;
 
Procedure TForm12.Button7Click(Sender: TObject); //Ответ на 7-ой вопрос
 
Begin
 
If radiobutton20.Checked=True then
 
Inc(kol);
 
Radiobutton19.Visible:=False; Memo7.Visible:=False;
 
Radiobutton20.Visible:=False; Memo8.Visible:=True;
 
Radiobutton21.Visible:=False; Image7.visible:=False;
 
Radiobutton22.Visible:=True; Image8.visible:=True;
 
Radiobutton23.Visible:=True; Button7.Visible:=False;
 
Radiobutton24.Visible:=True; Button8.Visible:=True;
 
End;
 
Procedure TForm12.Button8Click(Sender: TObject); //Ответ на 8-ой вопрос
 
Begin
 
If radiobutton22.Checked=True then
 
Inc(kol);
 
Radiobutton22.Visible:=False; Memo8.Visible:=False;
 
Radiobutton23.Visible:=False; Memo9.Visible:=True;
 
Radiobutton24.Visible:=False; Image8.visible:=False;
 
Radiobutton25.Visible:=True; Image9.visible:=True;
 
Radiobutton26.Visible:=True; Button8.Visible:=False;
 
Radiobutton27.Visible:=True; Button9.Visible:=True;
 
End;
 
Procedure TForm12.Button9Click(Sender: TObject); //Ответ на 9-ый вопрос
 
Begin
 
If radiobutton25.Checked=True then
 
Inc(kol);
 
Radiobutton25.Visible:=False; memo9.Visible:=False;
 
Radiobutton26.Visible:=False; memo10.Visible:=True;
 
Radiobutton27.Visible:=False; Image9.visible:=False;
 
Radiobutton28.Visible:=True; Image10.visible:=True;
 
Radiobutton29.Visible:=True; button9.Visible:=False;
 
Radiobutton30.Visible:=True; button10.Visible:=True;
 
End;
 
Procedure TForm12.Button10Click(Sender: TObject); //Ответ на 10-ый вопрос
 
Begin
 
If radiobutton30.Checked=True then
 
Inc(kol);
 
Form11.Label2.Caption:='Вы прошли тест и набрали '+inttostr(kol)+' баллов.';
 
If kol>8 then
 
Form11.Label3.Caption:='Ваша оценка 5'+' '+'Отлично!';
 
If kol<=8 then
 
If kol>=6 then
 
Form11.Label3.Caption:='Ваша оценка 4'+' '+'Хорошо!';
 
If kol<=5 then
 
If kol>=4 then
 
Form11.Label3.Caption:='Ваша оценка 3'+' '+'Неплохо!';
 
If kol<4 then
 
Form11.Label3.Caption:='Ваша оценка 2'+' '+'Ничего, попробуй ещё раз!';
 
Form12.Hide;
 
Form11.Show;
 
RadioButton1.Checked:=False; RadioButton11.Checked:=False; RadioButton21.Checked:=False;
 
RadioButton2.Checked:=False; RadioButton12.Checked:=False; RadioButton22.Checked:=False;
 
RadioButton3.Checked:=False; RadioButton13.Checked:=False; RadioButton23.Checked:=False;
 
RadioButton4.Checked:=False; RadioButton14.Checked:=False; RadioButton24.Checked:=False;
 
RadioButton5.Checked:=False; RadioButton15.Checked:=False; RadioButton25.Checked:=False;
 
RadioButton6.Checked:=False; RadioButton16.Checked:=False; RadioButton26.Checked:=False;
 
RadioButton7.Checked:=False; RadioButton17.Checked:=False; RadioButton27.Checked:=False;
 
RadioButton8.Checked:=False; RadioButton18.Checked:=False; RadioButton28.Checked:=False;
 
RadioButton9.Checked:=False; RadioButton19.Checked:=False; RadioButton29.Checked:=False;
 
RadioButton10.Checked:=False; RadioButton20.Checked:=False; RadioButton30.Checked:=False;
 
RadioButton28.Visible:=False; RadioButton29.Visible:=False; RadioButton30.Visible:=False;
 
RadioButton1.Visible:=True; RadioButton2.Visible:=True; RadioButton3.Visible:=True;
 
Memo1.Visible:=True; Memo10.Visible:=False;
 
Image1.Visible:=True; Image10.Visible:=False;
 
Button11.Visible:=True; Button10.Visible:=False; kol:=0;
 
End;
 
Procedure TForm12.Button11Click(Sender: TObject); //Ответ на 1-ый вопрос
 
Иegin
 
If radiobutton3.Checked=True then
 
Inc(kol);
 
Radiobutton1.Visible:=False; Memo1.Visible:=False;
 
Radiobutton2.Visible:=False; Memo2.Visible:=True;
 
Radiobutton3.Visible:=False; Image1.visible:=False;
 
Radiobutton4.Visible:=True; Image2.visible:=True;
 
Radiobutton5.Visible:=True; Button11.Visible:=False;
 
Radiobutton6.Visible:=True; Button2.Visible:=True;
 
End;
 
End.

Форма 13. (Выбор Теста)

Pascal

Unit Unit13;
 
{$mode objfpc}{$H+}
 
Interface
 
Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
Buttons; Type{ TForm13 } TForm13 = class(TForm)
 
BitBtn1: TBitBtn; Button1: TButton; Button2: TButton; Button4: TButton; Label1: TLabel;
 
procedure BitBtn1Click(Sender: TObject); procedure Button1Click(Sender: TObject);
 
procedure Button2Click(Sender: TObject); procedure Button4Click(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var
 
Form13: TForm13;
 
Implementation
 
Uses Unit7,Unit12,Unit2,Unit14;
 
{$R *.lfm}
 
{ TForm13 }
 
Procedure TForm13.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin Form13.Hide; Form14.Show; End;
 
Procedure TForm13.Button1Click(Sender: TObject); //Открытие формы 7
 
Begin //(Тест 1)
 
Form7.Show; Form13.Hide;
 
Form7.Image1.Visible:=True; Form7.Memo1.Visible:=True;
 
Form7.Image2.Visible:=False; Form7.Memo2.Visible:=False;
 
Form7.Image3.Visible:=False; Form7.Memo3.Visible:=False;
 
Form7.Image4.Visible:=False; Form7.Memo4.Visible:=False;
 
Form7.Image5.Visible:=False; Form7.Memo5.Visible:=False;
 
Form7.Image6.Visible:=False; Form7.Memo6.Visible:=False;
 
Form7.Image7.Visible:=False; Form7.Memo7.Visible:=False;
 
Form7.Image8.Visible:=False; Form7.Memo8.Visible:=False;
 
Form7.Image9.Visible:=False; Form7.Memo9.Visible:=False;
 
Form7.Image10.Visible:=False; Form7.Memo10.Visible:=False;
 
Form7.RadioButton1.Checked:=False; Form7.RadioButton16.Checked:=False;
 
Form7.RadioButton2.Checked:=False; Form7.RadioButton17.Checked:=False;
 
Form7.RadioButton3.Checked:=False; Form7.RadioButton18.Checked:=False;
 
Form7.RadioButton4.Checked:=False; Form7.RadioButton19.Checked:=False;
 
Form7.RadioButton5.Checked:=False; Form7.RadioButton20.Checked:=False;
 
Form7.RadioButton6.Checked:=False; Form7.RadioButton21.Checked:=False;
 
Form7.RadioButton7.Checked:=False; Form7.RadioButton22.Checked:=False;
 
Form7.RadioButton8.Checked:=False; Form7.RadioButton23.Checked:=False;
 
Form7.RadioButton9.Checked:=False; Form7.RadioButton24.Checked:=False;
 
Form7.RadioButton10.Checked:=False; Form7.RadioButton25.Checked:=False;
 
Form7.RadioButton11.Checked:=False; Form7.RadioButton26.Checked:=False;
 
Form7.RadioButton12.Checked:=False; Form7.RadioButton27.Checked:=False;
 
Form7.RadioButton13.Checked:=False; Form7.RadioButton28.Checked:=False;
 
Form7.RadioButton14.Checked:=False; Form7.RadioButton29.Checked:=False;
 
Form7.RadioButton15.Checked:=False; Form7.RadioButton30.Checked:=False;
 
End;
 
Procedure TForm13.Button2Click(Sender: TObject); //Открытие формы 12
 
Begin //(Тест 2)
 
Form12.Show;
 
Form13.Hide;
 
Form12.Image1.Visible:=True; Form12.Memo1.Visible:=True;
 
Form12.Image2.Visible:=False; Form12.Memo2.Visible:=False;
 
Form12.Image3.Visible:=False; Form12.Memo3.Visible:=False;
 
Form12.Image4.Visible:=False; Form12.Memo4.Visible:=False;
 
Form12.Image5.Visible:=False; Form12.Memo5.Visible:=False;
 
Form12.Image6.Visible:=False; Form12.Memo6.Visible:=False;
 
Form12.Image7.Visible:=False; Form12.Memo7.Visible:=False;
 
Form12.Image8.Visible:=False; Form12.Memo8.Visible:=False;
 
Form12.Image9.Visible:=False; Form12.Memo9.Visible:=False;
 
Form12.Image10.Visible:=False; Form12.Memo10.Visible:=False;
 
Form12.RadioButton1.Checked:=False; Form12.RadioButton16.Checked:=False;
 
Form12.RadioButton2.Checked:=False; Form12.RadioButton17.Checked:=False;
 
Form12.RadioButton3.Checked:=False; Form12.RadioButton18.Checked:=False;
 
Form12.RadioButton4.Checked:=False; Form12.RadioButton19.Checked:=False;
 
Form12.RadioButton5.Checked:=False; Form12.RadioButton20.Checked:=False;
 
Form12.RadioButton6.Checked:=False; Form12.RadioButton21.Checked:=False;
 
Form12.RadioButton7.Checked:=False; Form12.RadioButton22.Checked:=False;
 
Form12.RadioButton8.Checked:=False; Form12.RadioButton23.Checked:=False;
 
Form12.RadioButton9.Checked:=False; Form12.RadioButton24.Checked:=False;
 
Form12.RadioButton10.Checked:=False; Form12.RadioButton25.Checked:=False;
 
Form12.RadioButton11.Checked:=False; Form12.RadioButton26.Checked:=False;
 
Form12.RadioButton12.Checked:=False; Form12.RadioButton27.Checked:=False;
 
Form12.RadioButton13.Checked:=False; Form12.RadioButton28.Checked:=False;
 
Form12.RadioButton14.Checked:=False; Form12.RadioButton29.Checked:=False;
 
Form12.RadioButton15.Checked:=False; Form12.RadioButton30.Checked:=False;
 
End;
 
Procedure TForm13.Button4Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show; Form13.Hide; End; End.

Форма 14. (Меню Выхода)

Pascal

Unit Unit14; {$mode objfpc}{$H+} Interface
 
Uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
Type { TForm14 }
 
TForm14 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel;
 
procedure Button1Click(Sender: TObject);
 
procedure Button2Click(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var Form14: TForm14;
 
Implementation Uses Unit2;
 
{$R *.lfm}{ TForm14 }
 
Procedure TForm14.Button1Click(Sender: TObject); //Выход из программы
 
Begin
 
Application.Terminate;
 
End;
 
Procedure TForm14.Button2Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form14.Hide;
 
Form2.Show;
 
End;
 
End.

@Puporev · 13.05.2016, 17:42

Я больше не буду за Вас теги, просто удалю сообщение.

@legenda121 · 13.05.2016, 18:01 **[ТС]**

ну вот вроде теперь есть) поможешь?

Добавлено через 18 минут
))) 8 формы нету

Форма 8. (Раздел 3)

Pascal

Unit Unit8;
 
{$mode objfpc}{$H+}
 
Interface
 
Uses
 
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 
Buttons;
 
Type
 
{ TForm8 }
 
TForm8 = class(TForm)
 
BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; Button1: TButton; Button7: TButton;
 
Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton;
 
Label1: TLabel; Memo1: TMemo; Memo2: TMemo; Memo3: TMemo; Memo4: TMemo;
 
Procedure BitBtn1Click(Sender: TObject); Procedure BitBtn2Click(Sender: TObject);
 
Procedure BitBtn3Click(Sender: TObject); Procedure Button1Click(Sender: TObject);
 
Procedure Button2Click(Sender: TObject); Procedure Button3Click(Sender: TObject);
 
Procedure Button4Click(Sender: TObject); Procedure Button5Click(Sender: TObject);
 
Procedure Button6Click(Sender: TObject); Procedure Button7Click(Sender: TObject);
 
Procedure FormCreate(Sender: TObject);
 
Private { private declarations }
 
Public{ public declarations } End;
 
Var
 
Form8: TForm8;
 
Implementation
 
Uses Unit2,Unit6,Unit9,Unit14;
 
{$R *.lfm}
 
{ TForm8 }
 
Procedure TForm8.FormCreate(Sender: TObject); //Открытие формы 8
 
Begin //(Раздел 3)
 
Memo1.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_1.txt');
 
Memo2.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_2.txt');
 
Memo3.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_3.txt');
 
Memo4.Lines.LoadFromFile('Files\documents\uch(Form_4)\glav_3\abz_4.txt');
 
Memo1.Visible:=True; Button1.Visible:=True;
 
Memo2.Visible:=False; Button2.Visible:=False;
 
Memo3.Visible:=False; Button3.Visible:=False;
 
Memo4.Visible:=False; Button4.Visible:=False;
 
BitBtn2.Visible:=False; Button5.Visible:=False;
 
BitBtn3.Visible:=False; Button6.Visible:=False;
 
End;
 
Procedure TForm8.BitBtn1Click(Sender: TObject); //Выход из программы
 
Begin
 
Form8.Hide;
 
Form14.Show;
 
End;
 
Procedure TForm8.BitBtn2Click(Sender: TObject); //Открытие формы 6
 
Begin //(Раздел 2)
 
Form6.Show; Form8.Hide;
 
Form6.Memo1.Visible:=True; Form6.Memo2.Visible:=False;
 
Form6.Memo3.Visible:=False; Form6.Memo4.Visible:=False;
 
Form6.Button1.Visible:=True; Form6.BitBtn2.Visible:=False;
 
Form6.Button2.Visible:=False; Form6.Button3.Visible:=False;
 
Form6.Button4.Visible:=False; Form6.Button5.Visible:=False;
 
Form6.Button6.Visible:=False; Form6.BitBtn2.Visible:=False;
 
Form6.BitBtn3.Visible:=False;
 
End;
 
Procedure TForm8.BitBtn3Click(Sender: TObject); //Открытие формы 9
 
Begin //(Раздел 4)
 
Form8.Hide;
 
Form9.Show;
 
Form9.StaticText1.Visible:=True; Form9.Image2.Visible:=True;
 
Form9.StaticText2.Visible:=False; Form9.Image3.Visible:=False;
 
Form9.StaticText3.Visible:=False; Form9.Image4.Visible:=False;
 
Form9.StaticText4.Visible:=False; Form9.Image5.Visible:=False;
 
Form9.StaticText5.Visible:=False; Form9.Image6.Visible:=False;
 
Form9.StaticText6.Visible:=False; Form9.Image7.Visible:=False;
 
Form9.StaticText7.Visible:=False; Form9.Image8.Visible:=False;
 
Form9.StaticText8.Visible:=False; Form9.Image9.Visible:=False;
 
Form9.StaticText9.Visible:=False; Form9.Image10.Visible:=False;
 
Form9.StaticText10.Visible:=False; Form9.Image11.Visible:=False;
 
Form9.StaticText11.Visible:=False; Form9.Image12.Visible:=False;
 
Form9.StaticText12.Visible:=False; Form9.Image13.Visible:=False;
 
Form9.StaticText13.Visible:=False; Form9.Image14.Visible:=False;
 
Form9.StaticText14.Visible:=False; Form9.Image15.Visible:=False;
 
Form9.StaticText15.Visible:=False; Form9.Image16.Visible:=False;
 
Form9.Button1.Visible:=True; Form9.Button15.Visible:=False;
 
Form9.Button2.Visible:=False; Form9.Button16.Visible:=False;
 
Form9.Button3.Visible:=False; Form9.Button17.Visible:=False;
 
Form9.Button4.Visible:=False; Form9.Button18.Visible:=False;
 
Form9.Button5.Visible:=False; Form9.Button19.Visible:=False;
 
Form9.Button6.Visible:=False; Form9.Button20.Visible:=False;
 
Form9.Button7.Visible:=False; Form9.Button21.Visible:=False;
 
Form9.Button8.Visible:=False; Form9.Button22.Visible:=False;
 
Form9.Button9.Visible:=False; Form9.Button23.Visible:=False;
 
Form9.Button10.Visible:=False; Form9.Button24.Visible:=False;
 
Form9.Button11.Visible:=False; Form9.Button25.Visible:=False;
 
Form9.Button12.Visible:=False; Form9.Button26.Visible:=False;
 
Form9.Button13.Visible:=False; Form9.Button27.Visible:=False;
 
Form9.Button14.Visible:=False; Form9.Button28.Visible:=False;
 
Form9.BitBtn2.Visible:=False;
 
End;
 
Procedure TForm8.Button1Click(Sender: TObject); //Смена мемо_1 на мемо_2
 
Begin
 
Memo1.Visible:=False; Memo2.Visible:=True;
 
Button1.Visible:=False; Button2.Visible:=True;
 
Button3.Visible:=True;
 
End;
 
Procedure TForm8.Button2Click(Sender: TObject); //Смена мемо_2 на мемо_1
 
Begin
 
Memo1.Visible:=True; Memo2.Visible:=False;
 
Button1.Visible:=True; Button2.Visible:=False;
 
Button3.Visible:=False;
 
End;
 
Procedure TForm8.Button3Click(Sender: TObject); //Смена мемо_2 на мемо_3
 
Begin
 
Memo2.Visible:=False; Memo3.Visible:=True;
 
Button2.Visible:=False; Button3.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True;
 
End;
 
Procedure TForm8.Button4Click(Sender: TObject); //Смена мемо_3 на мемо_2
 
Begin
 
Memo2.Visible:=True; Memo3.Visible:=False;
 
Button2.Visible:=True; Button3.Visible:=True;
 
Button4.Visible:=False; Button5.Visible:=False;
 
End;
 
Procedure TForm8.Button5Click(Sender: TObject); //Смена мемо_3 на мемо_4
 
Begin
 
Memo3.Visible:=False; Memo4.Visible:=True;
 
Button4.Visible:=False; BitBtn2.Visible:=True;
 
Button5.Visible:=False; BitBtn3.Visible:=True;
 
Button6.Visible:=True;
 
End;
 
Procedure TForm8.Button6Click(Sender: TObject); //Смена мемо_4 на мемо_3
 
Begin
 
Memo3.Visible:=True; Memo4.Visible:=False;
 
Button4.Visible:=True; Button5.Visible:=True;
 
Button6.Visible:=False; BitBtn2.Visible:=False;
 
BitBtn3.Visible:=False;
 
End;
 
Procedure TForm8.Button7Click(Sender: TObject); //Открытие формы 2
 
Begin //(Оглавление)
 
Form2.Show;
 
Form8.Hide;
 
End;
 
End.

@Puporev · 13.05.2016, 18:09

legenda121, У Вас вообще голову снесло? Вы думаете это кто-то будет смотреть? Я посмотрел поскольку модератор, но меня стошнило и я закрыл страницу.

@legenda121 · 13.05.2016, 18:22 **[ТС]**

а что настолько все плохо??? ну вдруг кто поможет ! ? тут всего 13 форм)

@Puporev · 13.05.2016, 18:31

Да лучше бы архив проекта приложили в тему, все мне меньше работы.

@BOGG ART · 13.05.2016, 18:32

Код надо оформлять в тег [DELPHI][/DELPHI]
Когда кода очень много надо ещё и в [SPOILER][/SPOILER]
А ваше запредельное количество текста надо просто в виде проекта прикреплять.

Никто не станет стока кода читать устно. 13 окон это уже либо солидный проект команды разработчиков или что-то ненормальное.

@legenda121 · 13.05.2016, 18:39 **[ТС]**

окей ) модер можешь пока удалить тему ! я чуть позже прогу кину !!

@volvo · 13.05.2016, 18:40

Сообщение от BOGG ART

Код надо оформлять в тег

Не DELPHI, а PASCAL. Это во-первых. А во-вторых, при таких объемах проще заархивировать исходники проекта и прикрепить сюда архив, а не выкладывать код каждой формы по отдельности. Может и найдется кто-нибудь, кому нечего делать сегодня вечером, чтобы заняться этим проектом.

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

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

можешь пока удалить тему

Темы по желанию левой пятки автора не удаляются. Вот чуть позже заархивируй проект (только не надо вместе с EXE, кому охота лишние мегабайты мусора качать) и прикрепи.

@BOGG ART · 13.05.2016, 18:45

При PASCAL не подсвечиваются директивы, не выделяются классы (например TObject).
Да и код-то написан на клоне VCL, значит по смыслу ближе Delphi. Под Pascal явно подразумевается Turbo, нечто для DOS.

Считаю правильнее грохнуть тему. Пусть ТС назовёт тему нормально, и опишет полностью ТЗ, и прикрепит проект.

@vlisp · 14.05.2016, 02:03

У каждой формы есть компоненты, у каждого компонента есть имя. Если для компонентов с похожими именами нужно сделать одно действие, то можно создать массив индексов и в цикле совершить над каждым компонентом нужное действие. Допустим для кнопок можно создать функцию, которая будет принимать в качестве аргументов массив индексов и тип состояния. Если нужно менять различные компоненты, то можно создать массив имен компонентов. Примеры того как это делать есть на форуме...

@volvo · 14.05.2016, 10:30

Сообщение от BOGG ART

не выделяются классы (например TObject)

Они и в редакторе Лазаруса не выделяются, потому что на фиг не нужно их выделять, это обычный идентификатор. Я тебе открою секрет, но TObject и дельфийским редактором (который в IDE) тоже не подсвечивается. Так что, зачем сделана его подсветка в теге DELPHI, для меня вообще загадка.

Сообщение от BOGG ART

Под Pascal явно подразумевается Turbo, нечто для DOS.

Может, кем-то и подразумевается. Меня лично коробит, когда в разделе Лазарус оформляют код несоответствующими тегами. Это Object Pascal, а не Дельфи.

@Puporev Модератор 62945 / 46957 / 32362 Регистрация: 18.05.2008 Сообщений: 113,784
	13.05.2016, 17:42	6
	Я больше не буду за Вас теги, просто удалю сообщение. 0

@Puporev Модератор 62945 / 46957 / 32362 Регистрация: 18.05.2008 Сообщений: 113,784
	13.05.2016, 18:09	8
	legenda121, У Вас вообще голову снесло? Вы думаете это кто-то будет смотреть? Я посмотрел поскольку модератор, но меня стошнило и я закрыл страницу. 0

@legenda121 0 / 0 / 0 Регистрация: 13.05.2016 Сообщений: 10
	13.05.2016, 18:22 [ТС]	9
	а что настолько все плохо??? ну вдруг кто поможет ! ? тут всего 13 форм) 0

@Puporev Модератор 62945 / 46957 / 32362 Регистрация: 18.05.2008 Сообщений: 113,784
	13.05.2016, 18:31	10
	Да лучше бы архив проекта приложили в тему, все мне меньше работы. 0

@BOGG ART 586 / 453 / 147 Регистрация: 09.12.2013 Сообщений: 2,386 Записей в блоге: 2
	13.05.2016, 18:32	11
	Код надо оформлять в тег [DELPHI][/DELPHI] Когда кода очень много надо ещё и в [SPOILER][/SPOILER] А ваше запредельное количество текста надо просто в виде проекта прикреплять. Никто не станет стока кода читать устно. 13 окон это уже либо солидный проект команды разработчиков или что-то ненормальное. 0

@legenda121 0 / 0 / 0 Регистрация: 13.05.2016 Сообщений: 10
	13.05.2016, 18:39 [ТС]	12
	окей ) модер можешь пока удалить тему ! я чуть позже прогу кину !! 0

@volvo Супер-модератор 30867 / 20189 / 7874 Регистрация: 22.10.2011 Сообщений: 35,049 Записей в блоге: 6
	13.05.2016, 18:40	13
	Сообщение от BOGG ART Код надо оформлять в тег Не DELPHI, а PASCAL. Это во-первых. А во-вторых, при таких объемах проще заархивировать исходники проекта и прикрепить сюда архив, а не выкладывать код каждой формы по отдельности. Может и найдется кто-нибудь, кому нечего делать сегодня вечером, чтобы заняться этим проектом. Добавлено через 1 минуту Сообщение от legenda121 можешь пока удалить тему Темы по желанию левой пятки автора не удаляются. Вот чуть позже заархивируй проект (только не надо вместе с EXE, кому охота лишние мегабайты мусора качать) и прикрепи. 0

@BOGG ART 586 / 453 / 147 Регистрация: 09.12.2013 Сообщений: 2,386 Записей в блоге: 2
	13.05.2016, 18:45	14
	При PASCAL не подсвечиваются директивы, не выделяются классы (например TObject). Да и код-то написан на клоне VCL, значит по смыслу ближе Delphi. Под Pascal явно подразумевается Turbo, нечто для DOS. Считаю правильнее грохнуть тему. Пусть ТС назовёт тему нормально, и опишет полностью ТЗ, и прикрепит проект. 0

@vlisp 427 / 674 / 125 Регистрация: 10.08.2015 Сообщений: 2,988
	14.05.2016, 02:03	15
	У каждой формы есть компоненты, у каждого компонента есть имя. Если для компонентов с похожими именами нужно сделать одно действие, то можно создать массив индексов и в цикле совершить над каждым компонентом нужное действие. Допустим для кнопок можно создать функцию, которая будет принимать в качестве аргументов массив индексов и тип состояния. Если нужно менять различные компоненты, то можно создать массив имен компонентов. Примеры того как это делать есть на форуме... 0

@volvo Супер-модератор 30867 / 20189 / 7874 Регистрация: 22.10.2011 Сообщений: 35,049 Записей в блоге: 6
	14.05.2016, 10:30	16
	Сообщение от BOGG ART не выделяются классы (например TObject) Они и в редакторе Лазаруса не выделяются, потому что на фиг не нужно их выделять, это обычный идентификатор. Я тебе открою секрет, но TObject и дельфийским редактором (который в IDE) тоже не подсвечивается. Так что, зачем сделана его подсветка в теге DELPHI, для меня вообще загадка. Сообщение от BOGG ART Под Pascal явно подразумевается Turbo, нечто для DOS. Может, кем-то и подразумевается. Меня лично коробит, когда в разделе Лазарус оформляют код несоответствующими тегами. Это Object Pascal, а не Дельфи. 0