Курсовая работа: Расчет стоимости пластиковых оконных конструкций и дверей

begin form4.Showmodal end;

procedure TForm1.N7Click(Sender: TObject);

var dlg:Word; begin

dlg:=MessageDlg('Вы

точно хотите выйти???',mtConfirmation,mbYesNoCancel,0);

if dlg = mrYes then close; end;

procedure TForm1.N9Click(Sender: TObject);

begin form6.Showmodal; end;

procedure TForm1.N10Click(Sender: TObject);

begin form7.Showmodal; end;

procedure TForm1.N3Click(Sender: TObject);

begin Form1.PrintDialog1.Execute; end;

procedure TForm1.N18Click(Sender: TObject);

begin if Form1.SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile(SaveDialog1.FileName); end;

procedure TForm1.N19Click(Sender: TObject);

begin if form1.OpenDialog1.Execute then

RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName); end;

procedure TForm1.N11Click(Sender: TObject);

begin form9.Showmodal; end;

procedure TForm1.N13Click(Sender: TObject);

begin form12.Showmodal; end;

procedure TForm1.N2Click(Sender: TObject);

begin form11.Show; end;

procedure TForm1.SpeedButton3Click(Sender: TObject);

begin RichEdit1.Paragraph.Alignment:=taLeftJustify; end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin RichEdit1.Paragraph.Alignment:=taRightJustify; end;

procedure TForm1.SpeedButton4Click(Sender: TObject);