[FRWL]

Опишите подробно процедуры Календаря

Код:

procedure TForm1.TabControl1Change(Sender: TObject);
begin
  Calendar1.Month := TabControl1.TabIndex +1;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  Calendar1.Year := SpinEdit1.Value;
end;

procedure TForm1.Calendar1Change(Sender: TObject);
const
  A : Array [1..7] of string[11] = ('Воскресенье', 'Понедельник', 'Вторник',
  'Среда', 'Четверг',  'Пятница', 'Суббота');
begin
  Edit1.Text := A [DayOfWeek(Calendar1.CalendarDate)];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

Calendar1.CalendarDate := Date;
TabControl1.TabIndex := Calendar1.Month -1;
SpinEdit1.Value := Calendar1.Year; 
end;

Админ: Пользуемся тегами для оформления кода!

[Страдалецъ]

Код:

procedure TForm1.Calendar1Change(Sender: TObject);
 const
 A : Array [1..7] of string[11] = ('Воскресенье', 'Понедельник', 'Вторник',
 'Среда', 'Четверг', 'Пятница', 'Суббота');
 begin
 Edit1.Text := A [DayOfWeek(Calendar1.CalendarDate)];
 end;

Это один из вариантов получения текстового названия дня недели по его номеру. Создается константный массив А с названиями дней. Затем функцией DayOfWeek получаем порядковый номер дня недели. И по порядковому номеру узнаем уже какому названию из массива А он соответствует.
Можно вообще обойтись без этого лишнего массива. Такой массив уже существует и называется он LongDayNames.
Вот тоже самое, но уже используя существующий массив:

Код:

procedure TForm1.Calendar1Change(Sender: TObject);
begin
 Edit1.Text := LongDayNames[DayOfWeek(Calendar1.CalendarDate)];
end;

[Alegun]

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

Опишите подробно процедуры Календаря

1. Перейти на вкладку следующего месяца
2. Задать отображаемый год даты как из списка в SpinEdit1
3. Показать день недели для даты что на календаре
4. Установить начальные параметры календаря при запуске сборки