Привет, Гость! Регистрация RSS
Четверг, 25.04.2024
Главная » Файлы » Основные файлы сайта
Обычный календарь в Delphi
[ Скачать с сервера (245.8 Kb) ] 22.10.2012, 20:51
Обычный календарь, написанный на языке Delphi с использованием компонентов TabControl и Calendar.  


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.

Скачать (245.8 Kb)

Подпишись, чтобы получать свежие исходники!
Нравится
Категория: Основные файлы сайта | Добавил: Dark_Green | Теги: календарь, TabControl1, Calendar1, delphi, calendar, TabControl
Просмотров: 16071 | Загрузок: 2581 | Рейтинг: 2.7/7

Другие примеры
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]