![]() КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Замечание. Пусть
Пример
Пусть требуется организовать управление программой с помощью следующей структуры меню. По активизации ‘Ввод данных’ будет появляться дополнительная форма, в которой будем вводить данные.
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus; type TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; Edit1: TMenuItem; Tools1: TMenuItem; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; Info1: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Info1Click(Sender: TObject); procedure N6Click(Sender: TObject); private a, b, c: real; { Private declarations } public { Public declarations } end; Var Form1: TForm1;
implementation uses Unit2, Unit3; {$R *.DFM}
procedure TForm1.N1Click(Sender: TObject); begin Form2.ShowModal; end; //Чтобы форма2 была диалоговым окном при ее создании //в инспекторе объектов необходимо присвоить свойству BorderStyle:= Dialogs; //Тогда эта форма не имеет никаких кнопок и является //диалоговым окном. procedure TForm1.N2Click(Sender: TObject); begin Close; end;
procedure TForm1.N3Click(Sender: TObject); begin c: = a + b; PostProcessor1.Enabled:= true; end;
При создании меню первоначально необходимо запретить доступ к пункту главного меню PostProcessor, так как сначала неизвестен результат. Сделать этот пункт доступным можно в обработчике, связанным с созданием формы.
procedure TForm1.FormCreate(Sender: TObject); begin PostProcessor1.Enabled:= false; end;
procedure TForm1.Info1Click(Sender: TObject); begin if c<>0 then MessageBox(0,'Результат получен','инф',тв-OK) else MessageBox(0,'Нет исходных данных','Информация',тв-OK);**************************** end;
procedure TForm1.N6Click(Sender: TObject); begin Form3.ShowModal; end; end.
unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm2 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form2: TForm2;
implementation {$R *.DFM}
procedure TForm2.Button1Click(Sender: TObject); begin Form1.A:= StrToFloat(Edit1.Text); Form1.B:= StrToFloat(Edit2.Text); Сlose; end; end.
unit Unit3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Label1: TLabel; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form3: TForm3;
implementation {$R *.DFM}
procedure TForm3.Button1Click(Sender: TObject); begin Сlose; end;
procedure TForm3.FormCreate(Sender: TObject); begin Edit1.Text:= FloatToStr(Form1.0); end; end.
Дата добавления: 2014-01-07; Просмотров: 301; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |