АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Титульная форма

Читайте также:
  1. Вторая нормальная форма.
  2. Понятие о системе крови. Форменные элементы крови и их количество. Зернистые лейкоциты (гранулоциты), разновидность, строение, форма.
  3. Структура культуры как система: культурный артефакт, паттерн, культурная форма. Религия, искусство, государство, образование, наука, семья как культурные формы.
  4. Третья нормальная форма.
  5. Характеристики и движения: Танец Джаз - это многогранная художественная форма. Вышеупомянутые виды танца Джаз – примеры того, что допустимо в этой дисциплине.
  6. Эканамічнае развіццё Беларусі на пачатку 20 ст. Сталыпінская агарарная рэформа.
unit F_Titul; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons,F_Menu; type TForm1 = class(TForm) Image1: TImage; Label1: TLabel; Label2: TLabel; BitBtn1: TBitBtn; BitBtn2: TBitBtn; procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Label2.Caption:='Разработал ученик '#13'10 класса школы №444'#13'Давыдов Александр'; end; procedure TForm1.BitBtn1Click(Sender: TObject); begin Close; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin U_Menu.ShowModal; end; end.

Форма "Меню"

unit F_Menu; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus,F_Instr,F_Test,F_Res; type TU_Menu = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; procedure N4Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var U_Menu: TU_Menu; implementation {$R *.DFM} procedure TU_Menu.N4Click(Sender: TObject); begin Close; end; procedure TU_Menu.N5Click(Sender: TObject); begin U_Instr.ShowModal end; procedure TU_Menu.N2Click(Sender: TObject); begin nm:= InputBox('Начало тестирования','Введите имя',''); U_Test.RadioGroup1.ItemIndex:=-1; U_Test.RadioGroup2.ItemIndex:=-1; U_Test.RadioGroup3.ItemIndex:=-1; U_Test.RadioGroup4.ItemIndex:=-1; U_Test.RadioGroup5.ItemIndex:=-1; U_Test.PageControl1.ActivePage:=U_Test.TabSheet1; U_Test.ShowModal; end; procedure TU_Menu.N3Click(Sender: TObject); begin U_Res.Label1.Caption:=nm+' Ваш результат:'+IntToStr(Ball); U_Res.ShowModal; end; end.

Форма "Помощь"

unit F_Instr; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ComCtrls, ExtCtrls; type TU_Instr = class(TForm) Panel1: TPanel; Panel2: TPanel; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; TabSheet3: TTabSheet; CancelBtn: TButton; Memo3: TMemo; procedure CancelBtnClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var U_Instr: TU_Instr; implementation {$R *.DFM} procedure TU_Instr.CancelBtnClick(Sender: TObject); begin Close; end; end.

Форма "Результат"

unit F_Res; interface uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls; type TU_Res = class(TForm) OKBtn: TButton; Label1: TLabel; private { Private declarations } public { Public declarations } end; type T1=array[1..5,0..3] of byte; const otv:T1=((0,0,1,0),(0,0,1,0),(0,1,0,0),(0,0,1,0),(0,1,0,0)); var U_Res: TU_Res; Ball:Byte; Nm:String; implementation {$R *.DFM} end.

Форма "Тестирование"


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)