| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3266153
建立时间:2005年6月6日 |
| |
|
 [delpih编程]改进的trackbar控件
软件技术
吕向阳 发表于 2009/5/25 14:03:29 |
| unit utrackbar;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ComCtrls, StdCtrls;typeTmyTrackBar = class(TTrackBar)privateFOldValue: Integer;FOnmyChange: TNotifyEvent;procedure WMLButtonDown(var Message: TWMLButtonDown); messageWM_LBUTTONDOWN;procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;publishedproperty OnmyChange: TNotifyEvent read FOnmyChange write FOnmyChange;end;procedure Register;implementationprocedure Register;beginRegisterComponents('lxy', [tmytrackbar]);end;procedure TmyTrackBar.WMLButtonDown(var Message: TWMLButtonDown);beginFOldValue := Position;inherited;end;procedure TmyTrackBar.WMLButtonUp(var Message: TWMLButtonUp);begininherited;if Assigned(FOnmyChange) and (FOldValue <> Position) thenbeginFOnmyChange(Self);end;end;end. |
|
|