1 Topic by savage (edited by savage 2014-10-12 21:55:36)

  • Registered: 2014-05-31
  • Posts: 201

Topic: [Решено] DateTimePicker - установка фокуса

Собственно проблема - необходимо, чтобы по условию устанавливался фокус ввода на поле DateTimePicker. Не получается
Код:

// защита от неправильной даты конца диапазона
procedure Form1_DateTimePicker12_OnCloseUp (Sender: string);
begin
     if  Form1.DateTimePicker12.DateTime < Form1.DateTimePicker11.DateTime then
      begin
        ShowMessage('Дата финиша не может быть меньше даты старта!');
        Form1.DateTimePicker12.Checked := False;
        Form1.DateTimePicker12.SetFocus;
      end;
end;

в результате фокус не устанавливается. Сразу хочу сказать, что, имхо, установить фокус ввода - это установить мышь на поле выпадающего списка выбора даты/либо получить сам выпадающий список

  • Registered: 2014-02-14
  • Posts: 10,294

Re: [Решено] DateTimePicker - установка фокуса

Скачайте снова бета версию 1.45
https://www.dropbox.com/s/88lx13h9cw5ro … 5.zip?dl=0


Добавил метод OpenCalendar для компонента DateTimePicker

procedure Form1_DateTimePicker12_OnCloseUp (Sender: string);
begin
     if  Form1.DateTimePicker12.DateTime < Form1.DateTimePicker11.DateTime then
      begin
        ShowMessage('Дата финиша не может быть меньше даты старта!');
        Form1.DateTimePicker12.Checked := False;
        Form1.DateTimePicker12.OpenCalendar;
      end;
end;

работу с мышкой к сожалению пока не реализовал.

Dmitry.
  • Registered: 2014-05-31
  • Posts: 201

Re: [Решено] DateTimePicker - установка фокуса

Thanks a lot! :-)