Курсовая работа: Информационная система расчетов по договорам

end;

// ===================

procedure TForm1.N10Click (Sender: TObject);

begin

// Менюдублвыход

Button6Click(Sender);

end;

// ===================

procedure TForm1.N8Click (Sender: TObject);

begin

// Сбросдублменю

Button1Click(Sender);

end;

// ===================

procedure TForm1. Button5Click (Sender: TObject);

begin

Form4. Top:=Trunc (Form1. Top + Form1. Height/2 – Form4. Height/2);

Form4. Left:=Trunc (Form1. Left +Form1. Width/2 – Form4. Width/2);

Form4. ShowModal;

end;

// ===================

procedure TForm1. Button2Click (Sender: TObject);

// Записьвфайл

begin

If RadioButton1. Checked Then

Kp. WriteXD(StringGrid1)

else if RadioButton2. Checked Then

Kp. WriteWTK(StringGrid1)

else if RadioButton3. Checked Then