Добро пожаловать на наш портал

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, Calendar, ComCtrls, StdCtrls, Spin;

type
TForm1 = class(TForm)
TabControl1: TTabControl;
Calendar1: TCalendar;
SpinEdit1: TSpinEdit;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label3: TLabel;
procedure TabControl1Change(Sender: TObject);
procedure SpinEdit1Change(Sender: TObject);
procedure Calendar1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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; // месяц в TabControl1
SpinEdit1.Value := Calendar1.Year; // год в SpinEdit1
end;

end.