Implementation. usesWindows, Messages, SysUtils, Classes, Graphics,

Type

Interface

uses Windows, Messages, SysUtils, Classes, Graphics,

Controls, Forms, Dialogs, StdCtrls, Buttons,

ExtCtrls, Menus, DeclCoroplex, About;

Рис. 47

TMainForm = class(TForm) Bevel1: TBevel; Bevel2: TBevel; Edit1: TEdit; Label1: TLabel; Edit2: TEdit; Label2: TLabel; Label4: TLabel; Edit5: TEdit;

Edit6: TEdit;

Edit3: TEdit;

Edit4: TEdit; Label3: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label1O: TLabel; Label11: TLabel; MainMenu1: TMainMenu; Calc: TMenuItem; About: TMenuItem; ExitPoint: TMenuItem; Input: TMenuItem;

procedure Edit1KeyPress (Sender: TObject; var Key: Char); procedure CalcClick (Sender: TObject);

procedure ExitPointClick (Sender: TObject);

procedure InputClick (Sender: TObject);

procedure AboutClick( Sender: TObject);

end;

var MainForm: TMainForm;

Function AddC(X,Y:Complex):Complx; external 'MyDLL.dll’;

{$R *.DFM}

procedure TMainForm.Edit1KeyPress(Sender: TObject;

var Key: Char);

begin

if not (key in ['0’..'9',’-',#8]) thenkey:=#0;

end;

procedure TMainForm.CalcClick(Sender: TObject);

var X,Y, Z:Complex; begin

X.Re:=StrToInt(Edit1.Text);

X.lm:=StrToInt(Edit2.Text);

Y.Re:=StrToInt(Edit3.Text);

Y.im:=StrToInt(Edit4.Text);

Z:=AddC(X,Y);

Edits.Text:= FormatFloat('0.00',Z.Re);

Edit6.Text:= FormatFloat('0.00', Z. Im); end;

procedure TMainForm.ExitPointClick(Sender: TObject); begin

Close; end;

procedure TMainForm.InputClick(Sender: TObject); begin

Edit1.SetFocus; end;

procedure TMainForm.AboutClick(Sender: TObject); begin

AboutForm.ShowModal;end; end.

{Модуль с дополнительной формой.}

unit About; interface uses

Windows, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls; type

TAboutForm = class(TForm) Panel1: TPanel; OKButton: TBitBtn; Programlcon: Tlmage; ProductName: TLabel; Department: TLabel; Copyright: TLabel; Comments: TLabel; end;

var AboutPorm: TAboutForm; implementation {$R *.DFM} end.

unit DeclComplex; {Модуль с объявлением типа Complex.}

Дата добавления: 2014-12-29