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

ShowMessage ('Данные записаны в файл!');

Kp. Free;

end;

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

procedure TForm1.N3Click (Sender: TObject);

begin

// менюдублир

Button2Click(Sender);

end;

procedureTForm1. Button7Click (Sender: TObject);

begin

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

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

Form2. ShowModal;

// Элемент пользовательского интерфейса

// очистка cells'ов

// в StringGrid1

end;

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

procedure TForm1.N4Click (Sender: TObject);

begin

// Меню – дублирование – удаление строки

Button7Click(Sender);

end;

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

procedure TForm1. FormActivate (Sender: TObject);

begin

// Очистка головы списка №1 №2 №3

Kp.null;