开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DateF.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

DateF.pas：源码内容
  1. unit DateF;
  3. interface
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Dates, StdCtrls;
  9. type
  10.   TDateForm = class(TForm)
  11.     LabelDate: TLabel;
  12.     BtnIncrease: TButton;
  13.     BtnDecrease: TButton;
  14.     BtnAdd10: TButton;
  15.     BtnSubtract10: TButton;
  16.     BtnLeap: TButton;
  17.     BtnToday: TButton;
  18.     procedure BtnIncreaseClick(Sender: TObject);
  19.     procedure FormCreate(Sender: TObject);
  20.     procedure BtnDecreaseClick(Sender: TObject);
  21.     procedure BtnAdd10Click(Sender: TObject);
  22.     procedure BtnSubtract10Click(Sender: TObject);
  23.     procedure FormDestroy(Sender: TObject);
  24.     procedure BtnLeapClick(Sender: TObject);
  25.     procedure BtnTodayClick(Sender: TObject);
  26.   private
  27.     TheDay: TNewDate;
  28.   public
  29.     { Public declarations }
  30.   end;
  32. var
  33.   DateForm: TDateForm;
  35. implementation
  37. {$R *.DFM}
  39. procedure TDateForm.FormCreate(Sender: TObject);
  40. begin
  41.   TheDay := TNewDate.Create (2001, 12, 25);
  42.   LabelDate.Caption := TheDay.GetText;
  43. end;
  45. procedure TDateForm.BtnIncreaseClick(Sender: TObject);
  46. begin
  47.   TheDay.Increase;
  48.   LabelDate.Caption := TheDay.GetText;
  49. end;
  51. procedure TDateForm.BtnDecreaseClick(Sender: TObject);
  52. begin
  53.   TheDay.Decrease;
  54.   LabelDate.Caption := TheDay.GetText;
  55. end;
  57. procedure TDateForm.BtnAdd10Click(Sender: TObject);
  58. begin
  59.   TheDay.Increase (10);
  60.   LabelDate.Caption := TheDay.GetText;
  61. end;
  63. procedure TDateForm.BtnSubtract10Click(Sender: TObject);
  64. begin
  65.   TheDay.Decrease (10);
  66.   LabelDate.Caption := TheDay.GetText;
  67. end;
  69. procedure TDateForm.FormDestroy(Sender: TObject);
  70. begin
  71.   TheDay.Free;
  72. end;
  74. procedure TDateForm.BtnLeapClick(Sender: TObject);
  75. begin
  76.   if TheDay.LeapYear then
  77.     ShowMessage ('Leap year')
  78.   else
  79.     ShowMessage ('NON Leap year');
  80. end;
  82. procedure TDateForm.BtnTodayClick(Sender: TObject);
  83. begin
  84.   TheDay.SetValue (Date);
  85.   LabelDate.Caption := TheDay.GetText;
  86. end;
  88. end.