Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.12.2009, 09:25   #1
kate158
Форумчанин
 
Регистрация: 01.08.2008
Сообщений: 383
По умолчанию отображение в поле месяца и года

Привет. Хочу сделать поле, в котором отображается месяц и год.Слева и справа будут стрелки.Допустим нажимаю стрелку справа месяц на 1 увеличивается, слева - уменьшается. а год можно изменять вручную.
как можно это реализовать? есть такой компонент monthcalendar. так вот наверное можно оттуда убрать дни недели оставив только месяц и год..

Последний раз редактировалось kate158; 04.12.2009 в 09:48.
kate158 вне форума Ответить с цитированием
Старый 04.12.2009, 10:22   #2
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,210
По умолчанию

C годом будет так.
Вложения
Тип файла: zip Новая папка (3).zip (3.3 Кб, 10 просмотров)
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 04.12.2009, 10:27   #3
kate158
Форумчанин
 
Регистрация: 01.08.2008
Сообщений: 383
По умолчанию

мне нужно чтобы и год и месяц были в одном месте.
Изображения
Тип файла: jpg 1.JPG (2.3 Кб, 97 просмотров)
kate158 вне форума Ответить с цитированием
Старый 04.12.2009, 10:58   #4
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Код:
uses DateUtils
implementation

{$R *.dfm}
var D:TdateTime;
procedure TForm1.Button1Click(Sender: TObject);
begin
 D:=IncMonth(D,-1);
 label1.Caption:=formatdatetime('mmmm yyyy',D);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 D:=IncMonth(D,1);
 label1.Caption:=formatdatetime('mmmm yyyy',D);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 D:=Now;
 label1.Caption:=formatdatetime('mmmm yyyy',D);
end;

end.
Вложения
Тип файла: zip 3.ZIP (4.4 Кб, 10 просмотров)
SERG1980 вне форума Ответить с цитированием
Старый 04.12.2009, 12:56   #5
kate158
Форумчанин
 
Регистрация: 01.08.2008
Сообщений: 383
По умолчанию

как грится, мы пойдем своим путем.
datetimepicker->datemode->DmUpDown
Код:
datetimepicker1.Format:='MMMM yyyy';
kate158 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
После ввода в поле по Enter нужно перейти на другое поле! •ScReam•™ Помощь студентам 2 16.06.2009 08:47
Отображение скрытых файлов и папок и отображение розширения всех файлов beegl Общие вопросы Delphi 10 14.12.2008 22:02
Зависимость чисел дней месяца от месяца valerij Microsoft Office Excel 10 14.11.2008 11:01
Номер месяца olimpus Microsoft Office Excel 2 25.09.2008 19:05