Разработать проект, который выводит в текстовые поля текущие дату и время:

144

209

Посмотреть ответы 2

Ответы на вопрос:

Vova2288s

Информатика

4,7(68 оценок)

//pascal abc.net 3.1 сборка 1219 uses system,system.windows.forms; var dat: datetime; myform: form; mybutton: button; mytextbox: textbox; procedure mybuttonclick(sender: object; e: eventargs); begin {при каждом нажатии на кнопку значение dat обновляется и выводится в текстовое поле} dat: =datetime.now; mytextbox.text: =dat.tostring; end; begin myform: =new form; //создание объекта - формы myform.left: =500; myform.top: =500; myform.autosize: =true; myform.width: =300; myform.height: =100; mytextbox: =new textbox; //создание объекта - текстового поля mytextbox.left: =80; mytextbox.top: =40; mytextbox.enabled: =true; mytextbox.width: =105; mytextbox.height: =100; mytextbox.maxlength: =16; mytextbox.readonly: =false; mytextbox.visible: =true; mybutton: =new button; //создание объекта - кнопки mybutton.text: ='now'; mybutton.left: =80; mybutton.top: =80; mybutton.autosize: =true; myform.controls.add(mybutton); //вешаем на форму кнопку и поле myform.controls.add(mytextbox); mybutton.click+=mybuttonclick; //присваиваем событие при нажатии на кнопку application.run(myform); end.