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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

13
2:
3: uses
4: Forms,
5: Uform in 'UFORM.PAS' {Form1};
6:
7: {$R *.RES}
8:
9: begin
10 Application.Initialize;
11: Application.CreateForm(TForm1, Form1);
12: Application.Run;
13: end.
_________________________________________________________________________
Листинг 2. Исходный текст для библиотечного модуля UFORM.PAS.
_________________________________________________________________________
1: unit Uform;
2:
3: interface
4:
5: uses
6: SysUtils, Windows, Variants, Messages, Classes, Graphics, Controls,
7: Forms, Dialogs, StdCtrls;
8:
9: type
10: TForm1 = class(TForm)
11: CloseBtn: TButton;
12: MouseLbl: TLabel;
13: procedure CloseBtnClick(Sender: TObject);
14: procedure FormClick(Sender: TObject);
15: procedure FormMouseMove(Sender: TObject;
16: Shift: TShiftState;
17: X,Y: Integer);
18: private
19: { Private declarations }
20: public
21: { Public declarations }
22: end;
23:
24: var
25: Form1: TForm1;
26:
27: implementation
28:
29: {$R *.DFM}
30:
31: procedure TForm1.CloseBtnClick(Sender: TObject);

Страницы