Листинг 5. Текст файла проекта Lab3.dpr
program Lab3;
uses Forms, MainUnit in 'MainUnit.pas' {MainForm}, ListInput in 'ListInput.pas' {ListForm}, GridInput in 'GridInput.pas' {GridForm};
{$R *.RES}
begin Application.Initialize; Application.CreateForm (TMainForm, MainForn); Application.CreateForm (TListForm, ListForm); Application.CreateForm(TGridForm, GridForm); Application.Run; end.
Листинг 6. Текст главного модуля MainUnit.pas
unit MainUnit;
Interface
uses Windows, Messages, SysUtiis, Classes, Graphics, StdCtrls, Forms, Dialogs;
type TMainForm = class(TForm) GroupBox1: TGroupBox; ButtonList: TButton; Label1: TLabel; Label2: TLabel; LabelProduct1: TLabel; LabelSum1: TLabel; GroupBox2: TGroupBox; Label3: TLabel; Label4: TLabel; LabelProduct2: TLabel; LabelSum2: TLabel; ButtonGrid: TButton; ButtonClose: TBLtton; procedure ButtonListClick(Sender: TObject); procedure ButtonCloseClick(Sender: Tabject); procedure ButtonGridClick(Sender: TObject); end;
var MainForm: TMainForm;
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|