unit1.pas

来自「《参透Delphi Kylix》通过131个事例」· PAS 代码 · 共 58 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, JuControls;

type
  TMainForm = class(TForm)
    ButtonInc: TButton;
    ButtonDec: TButton;
    LabeledEditYear: TLabeledEdit;
    LabeledEditMonth: TLabeledEdit;
    LabeledEditDay: TLabeledEdit;
    JuDate: TJuDate;
    Button1: TButton;
    procedure JuDateDateChange(Sender: TObject; const AYear, AMonth, ADay: Word);
    procedure ButtonIncClick(Sender: TObject);
    procedure ButtonDecClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.JuDateDateChange(Sender: TObject; const AYear, AMonth, ADay: Word);
begin
  Self.LabeledEditYear.Text := IntToStr(AYear);
  Self.LabeledEditMonth.Text := IntToStr(AMonth);
  Self.LabeledEditDay.Text := IntToStr(ADay);
end;

procedure TMainForm.ButtonIncClick(Sender: TObject);
begin
  JuDate.Inc();
end;

procedure TMainForm.ButtonDecClick(Sender: TObject);
begin
  JuDate.Dec();
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  JuDateDateChange(Self, JuDate.Year, JuDate.Month, JuDate.Day);
end;

end.