1 Topic by Новичок (edited by Новичок 2024-03-10 16:43:06)

  • Registered: 2023-08-19
  • Posts: 61

Topic: Обновить Дату и Время в DateTimePicker

Помогите мне обновить время в DateTimePicker2

Попробовал задать текущее время кнопкой UPDATE, но все равно не сохраняет новое время в базу данных.

Может существует команда обновления DateTimePicker!?

Post's attachments

Attachment icon Time_Data.zip 333.77 kb, 13 downloads since 2024-03-10 

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,538

Re: Обновить Дату и Время в DateTimePicker

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
   Form1.DateTimePicker1.DateTime := Now();
   Form1.DateTimePicker2.DateTime := Now();
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,538

Re: Обновить Дату и Время в DateTimePicker

или так:

procedure OnTimer (Sender: TObject);
begin
   Form1.DateTimePicker1.DateTime := Now();
   Form1.DateTimePicker2.DateTime := Now();
end;

procedure Form1_OnShow (Sender: TObject; Action: string);
var
  Timer:TTimer;
begin
  Timer := TTimer.Create(Form1);
  Timer.Interval := 1000;
  Timer.OnTimer := 'OnTimer';
end;
Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2023-08-19
  • Posts: 61

Re: Обновить Дату и Время в DateTimePicker

k245 wrote:
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
   Form1.DateTimePicker1.DateTime := Now();
   Form1.DateTimePicker2.DateTime := Now();
end;

Спасибо k245
https://san2.ru/smiles/thank-you.gif все работает. Первый вариант очень подходящий для меня.