Курсовая работа: Создание средств наглядности с использованием программной среды Delphi и Microsoft Movie Maker

end;

end;

procedure TForm1.LabeledEdit6KeyPress(Sender: TObject; var Key: Char);

begin

Case Key of

#8,'0'..'9',',':;

else Key:=Chr(0);

end;

end;

procedure TForm1.LabeledEdit7KeyPress(Sender: TObject; var Key: Char);

begin

Case Key of

#8,'0'..'9',',':;

else Key:=Chr(0);

end;

end;

procedure TForm1.LabeledEdit8KeyPress(Sender: TObject; var Key: Char);

begin

Case Key of

#8,'0'..'9',',':;

else Key:=Chr(0);

end;

end;

procedure TForm1.N10Click(Sender: TObject);

begin

if MessageDlg('Выдействительнохотитевыйтиизпрограммы?',MtConfirmation,[MbYes,mbNo],0)=MrYes then Form1.Close;

end;

//очиститьграфики

procedure TForm1.BitBtn2Click(Sender: TObject);