програмно раскрыть dbdatetimeediteh

[govorun1]

Кто-нибудь знает как програмно раскрыть dbdatetimeediteh при наведении фокуса?

[Streletz]

OnMouseEnter не помогает?

[govorun1]

Сообщение от Streletz

OnMouseEnter не помогает?

у него нет OnMouseEnter, есть OnMouseDown, но все-равно не понятно как...

[Аватар]

procedure TForm1.DBDateTimeEditEh1Enter(Sender: TObject);
begin
  DBDateTimeEditEh1.DropDown;
end;

[govorun1]

Сообщение от Аватар

procedure TForm1.DBDateTimeEditEh1Enter(Sender: TObject);
begin
  DBDateTimeEditEh1.DropDown;
end;

Помогло, спасибо.
А как сделать, чтобы после выбора даты фокус переводился на другое поле
например

if DBDateTimeEditEh1.... then button1.setfocus;

[doktor255]

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
Edit1.SetFocus;
end;

Контролы не те, но смысл тот же.

[Аватар]

Сомневаюсь в удобстве для пользователя активизация меню контрола каждый раз, когда ему фокус ввода передаётся

[govorun1]

Сообщение от Аватар

Сомневаюсь в удобстве для пользователя активизация меню контрола каждый раз, когда ему фокус ввода передаётся

Просто нужен контроль на отсутствие "бестолковой" даты. Так есть шас, что пользователь всетаки укажет правильную дату (по умолчанию она пустая...).

Сообщение от doktor255

procedure TForm1.DateTimePicker1CloseUp(Sender: TObject);
begin
Edit1.SetFocus;
end;

Контролы не те, но смысл тот же.

Спасибо, работает...

[Аватар]

Ну так раскрывать только если она пустая. Или при вставке записи текущую дату туда пихнуть. Автораскрытие не панацея от бестолковости пользователя