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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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.     EditMonth: TEdit;
  17.     EditDay: TEdit;
  18.     EditYear: TEdit;
  19.     ButtonRead: TButton;
  20.     ButtonWrite: TButton;
  21.     Label1: TLabel;
  22.     Label2: TLabel;
  23.     Label3: TLabel;
  24.     Date1: TDate;
  25.     procedure BtnIncreaseClick(Sender: TObject);
  26.     procedure BtnDecreaseClick(Sender: TObject);
  27.     procedure BtnAdd10Click(Sender: TObject);
  28.     procedure BtnSubtract10Click(Sender: TObject);
  29.     procedure ButtonReadClick(Sender: TObject);
  30.     procedure ButtonWriteClick(Sender: TObject);
  31.     procedure Date1Change(Sender: TObject);
  32.   private
  33.     { Private declarations }
  34.   public
  35.     { Public declarations }
  36.   end;
  38. var
  39.   DateForm: TDateForm;
  41. implementation
  43. {$R *.DFM}
  45. procedure TDateForm.BtnIncreaseClick(Sender: TObject);
  46. begin
  47.   Date1.Increase;
  48. end;
  50. procedure TDateForm.BtnDecreaseClick(Sender: TObject);
  51. begin
  52.   Date1.Decrease;
  53. end;
  55. procedure TDateForm.BtnAdd10Click(Sender: TObject);
  56. begin
  57.   Date1.Increase (10);
  58. end;
  60. procedure TDateForm.BtnSubtract10Click(Sender: TObject);
  61. begin
  62.   Date1.Decrease (10);
  63. end;
  65. procedure TDateForm.ButtonReadClick(Sender: TObject);
  66. begin
  67.   EditYear.Text := IntToStr (Date1.Year);
  68.   EditMonth.Text := IntToStr (Date1.Month);
  69.   EditDay.Text := IntToStr (Date1.Day);
  70. end;
  72. procedure TDateForm.ButtonWriteClick(Sender: TObject);
  73. begin
  74.   Date1.SetValue (StrToInt (EditYear.Text),
  75.     StrToInt (EditMonth.Text),
  76.     StrToInt (EditDay.Text));
  77. end;
  79. procedure TDateForm.Date1Change(Sender: TObject);
  80. begin
  81.   LabelDate.Caption := Date1.Text;
  82. end;
  84. end.