Опишите подробно процедуры Календаря
Код:
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;
Админ: Пользуемся тегами для оформления кода!