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