unit UpDownEdit;

interface

uses

  Windows, SysUtils, Classes, Controls, StdCtrls, ComCtrls, Messages;

type

  TUpDownEdit = class(TCustomControl)

  private

    { Private declarations }

    UpDown: TUpDown;

    Edit: TEdit;

    FMin: Integer;

    FMax: Integer;

    FOnChange: TNotifyEvent;

    FPosition: Integer;

    procedure WMSize(var Msg: TWMSize); message wm_Size;

    procedure SetMax(const Value: Integer);

    procedure SetMin(const Value: Integer);

    procedure EditChange(Sender: TObject);

    procedure EditKeyPress(Sender: TObject; var Key: Char);

    procedure UpDownClick(Sender: TObject; Button: TUDBtnType);

    procedure SetPosition(const Value: Integer);

  protected

    { Protected declarations }

  public

    { Public declarations }

    constructor Create(AOwner: TComponent); override;

    destructor Destroy; override;

  published

    { Published declarations }

    property Max: Integer read FMax write SetMax;

    property Min: Integer read FMin write SetMin;

    property Position: Integer read FPosition write SetPosition;

    property OnChange: TNotifyEvent read FOnChange write FOnChange;

  end;

procedure Register;

implementation

procedure Register;

begin

  RegisterComponents(''''Standard'''', [TUpDownEdit]);

end;

{ TUpDownEdit }

constructor TUpDownEdit.Create(AOwner: TComponent);

begin

  inherited Create(AOwner);

  SetBounds(0, 0, 57, 21);

  Edit := TEdit.Create(Self);

  Edit.Left := 0;

  Edit.Top := 0;

  Edit.Width := 40;

  Edit.Align := alLeft;

  Edit.Parent := self;

  Edit.Text := ''''0'''';

[1] [2] [3] [4]  下一页