Добавил:
Fragga
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:PascalDelphi / Многие готовые лабы за 1&2 сем. от Колесниковой М.Д. / DveForm / Unit2
.pas unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);//Выход
procedure Button1Click(Sender: TObject);//Произведение X*Y
procedure Button3Click(Sender: TObject);//Вывод P
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm2.Button2Click(Sender: TObject);
//Выход
begin
Form1.Close
end;
procedure TForm2.Button1Click(Sender: TObject);
//Произведение X*Y
begin
P:=x*y;
end;
procedure TForm2.Button3Click(Sender: TObject);
//Вывод P
begin
Edit3.Text:=FloatToStr(P);
end;
end.
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button2: TButton;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Button1: TButton;
Button3: TButton;
procedure Button2Click(Sender: TObject);//Выход
procedure Button1Click(Sender: TObject);//Произведение X*Y
procedure Button3Click(Sender: TObject);//Вывод P
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.DFM}
procedure TForm2.Button2Click(Sender: TObject);
//Выход
begin
Form1.Close
end;
procedure TForm2.Button1Click(Sender: TObject);
//Произведение X*Y
begin
P:=x*y;
end;
procedure TForm2.Button3Click(Sender: TObject);
//Вывод P
begin
Edit3.Text:=FloatToStr(P);
end;
end.