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

Замечательный хром. Секунду.

//Pascal ABC.NET 3.1 сборка 1219uses 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.

//Pascal ABC.NET 3.1 сборка 1219uses 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.