 sancho1966 » 29.06.2014 14:35:07
 sancho1966 » 29.06.2014 14:35:07 
			
			Добрый день. Можно опционально в компонент добавить выбор квартал, год, полугодие. На пример, я делал на наследовании от TComboBox
procedure TmoMonthComboBox.Loaded;
begin
   inherited;
   if  {(csLoading in ComponentState) or }(csDesigning in ComponentState) then exit;
   LoadItems;
end;
procedure TmoMonthComboBox.LoadItems;
begin
   with Items do
   begin
      if not OneMonth then Add('Год');
      Add('Январь');
      Add('Февраль');
      Add('Март');
      Add('Апрель');
      Add('Май');
      Add('Июнь');
      Add('Июль');
      Add('Август');
      Add('Сентябрь');
      Add('Октябрь');
      Add('Ноябрь');
      Add('Декабрь');
      if not OneMonth then  Add('1-й квартал');
      if not OneMonth then  Add('2-й квартал');
      if not OneMonth then  Add('3-й квартал');
      if not OneMonth then  Add('4-й квартал');
      if not OneMonth then  Add('полугодие');
      ItemIndex := 0;
   end;
end;