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(...[ 查看全文 ]