[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;

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