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

Разработать проект, который выводит в текстовые поля текущие дату и время:
Гость
Ответ(ы) на вопрос:
Гость
//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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы