Принципы визуального программирования. Семенов Н.М. - 22 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

22
5: uses
6: SysUtils, Windows, Variants, Messages, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls,
8: {Manualy insert unit name}
9: Uform12;
10:
11: type
12: TForm1 = class(TForm)
13: CloseBtn: TButton;
14: procedure CloseBtnClick(Sender: TObject);
15: private
16: { Private declarations }
17: public
18: { Public declarations }
19: end;
20:
21: var
22: Form1: TForm1;
23:
24: implementation
25:
26: {$R *.DFM}
27:
28: procedure TForm1.CloseBtnClick(Sender: TObject);
29: begin
30: Form2.ShowModal;
31: Close;
32: end;
33:
34: end.
______________________________________________________________________
Листинг 4. Исходный текст для модуля UFORM12.PAS.
____________________________________________________________________
1: unit Uform12;
2:
3: interface
4:
5: uses
6: SysUtils, Windows, Variants, Messages, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls;
8:
9: type
10: TForm2 = class(TForm)
11: OKBtn: TButton;
12: ByeLbl: TLabel;
13: procedure OKBtnClick(Sender: TObject);
14: private
15: { Private declarations }
16: public

Страницы