Замечание. Пусть

Пример

Пусть требуется организовать управление программой с помощью следующей структуры меню. По активизации ‘Ввод данных’ будет появляться дополнительная форма, в которой будем вводить данные.

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