[angelalso]

продолжение

Код:

begin
IF NOT Execute THEN Exit;
Edit1.Font:=Font;
StringGrid1.Font:=Font;
StringGrid2.Font:=Font;
end;
end;
procedure TForm1.N21Click(Sender: TObject);
begin
N15.Click;
end;
procedure TForm1.N22Click(Sender: TObject);
begin
N3.Click;
end;
procedure TForm1.N23Click(Sender: TObject);
begin
N6.Click;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Height:=150;
Form1.Width:=400;
Form1.Color:=clMaroon;
N6.Enabled:=False;
N3.Enabled:=False;
N18.Enabled:=False;
BitBtn2.Enabled:=False;
BitBtn4.Enabled:=False;
BitBtn5.Enabled:=False;
BitBtn6.Enabled:=False;
BitBtn10.Enabled:=False;
StringGrid2.Cells[0,0]:='i';
StringGrid2.Cells[1,0]:='Tp';
StringGrid2.Cells[2,0]:='Tп';
StringGrid2.Cells[3,0]:='i j';
StringGrid2.Cells[4,0]:='T(i j)';
StringGrid2.Cells[5,0]:='Tрн';
StringGrid2.Cells[6,0]:='Tро';
StringGrid2.Cells[7,0]:='Tпн';
StringGrid2.Cells[8,0]:='Tпо';
StringGrid2.Cells[9,0]:='Рп';
StringGrid2.Cells[10,0]:='Рсв';
Form1.Caption:='Расчет параметров сетевого графика';
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
N11.Enabled:=False;
N17.Enabled:=False;
Label3.Enabled:=True;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
N2.Click;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
N3.Click;
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
N9.Click;
end;
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
N15.Click;
end;
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
N11.Click;
end;
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
N17.Click;
end;
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
N14.Click;
end;
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
N8.Click;
end;
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
N12.Click;
end;
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
N6.Click;
end;
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
N10.Click;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9']) then
key:=#27;
end;
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9']) then
key:=#27;
end; 
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Button1: TButton;
Label6: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
j,i:integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.FormCreate(Sender: TObject);
begin
Form2.Caption:='О программе';
end;
end.