udbspini.pas

delphi编程控件

unit udbspini;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Refer, StdCtrls, DBCtrls, Mask, Buttons, ExtCtrls, ADateCtl, adbdate,
  aimctrls, adbimctr, ComCtrls;

type
  TFADBSpinImage = class(TForm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBReference1: TDBReference;
    DBReference2: TDBReference;
    Label3: TLabel;
    AutoDBSpinImage1: TAutoDBSpinImage;
    AutoDBDateEdit1: TAutoDBDateEdit;
    AutoDBDateEdit2: TAutoDBDateEdit;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    CheckBox1: TCheckBox;
    Label11: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FADBSpinImage: TFADBSpinImage;

implementation

uses udm;

{$R *.DFM}

procedure TFADBSpinImage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
  FADBSpinImage := Nil;
end;

procedure TFADBSpinImage.CheckBox1Click(Sender: TObject);
begin
  if(CheckBox1.Checked) then
    AutoDBSpinImage1.UpDownOrientation := udVertical
  else AutoDBSpinImage1.UpDownOrientation := udHorizontal;
end;

procedure TFADBSpinImage.RadioGroup1Click(Sender: TObject);
begin
  AutoDBSpinImage1.UpDownAlign := TAutoUpDownAlign(RadioGroup1.ItemIndex);
end;

end.