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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

25
строки показывают код, вставленный вручную. Листинг 6 показывает исходный текст
для модуля UFORM22.PAS. Выделенная строка 29 содержит оператор, который Вы
должны вставить в метод TForm2.ClickOKBtn.
Листинг 5. Исходный текст для модуля UFORM21.PAS.
_________________________________________________________________________
1: unit Uform21;
2:
3: interface
4:
5: uses
6: SysUtils, Windows, Variants, Messages, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls,
8: {manualy inserted unit name}
9: Uform22;
10:
11: type
12: TForm1 = class(TForm)
13: CloseBtn: TButton;
14: ShowFormBtn: TButton;
15: procedure CloseBtnClick(Sender: TObject);
16: procedure ShowFormBtnClick(Sender: TObject);
17: private
18: { Private declarations }
19: public
20: { Public declarations }
21: end;
22:
23: var
24: Form1: TForm1;
25:
26: implementation
27:
28: {$R *.DFM}
29:
30: procedure TForm1.ShowFormBtnClick(Sender: TObject);
31: begin
32: Form2.Show;
33: end;
34:
35: procedure TForm1.CloseBtnClick(Sender: TObject);
36: begin
37: Close;
38: end;
39: end.
Листинг 6. Исходный текст для модуля UFORM22.PAS.
__________________________________________________________________________
1: unit Uform22;
2:

Страницы