N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-19 #2 有两个方法， 1，自己写一个，(一分钟搞定)，强烈推荐 菜单 Component->New Component 选择 Ancestor Type:TTrackBar Class naem:TMyTrackBar 代码如下： TMyTrackBar = class(TTrackBar) private { Private declarations } protected { Protected declarations } public { Public declarations } published property OnMouseDown;//添加 property OnMouseUp; //添加 end; 保存，然后点击Component->Install Component就可以了 2，截获消息 重载TForm得WndProc然后处理TrackBar得消息
有两个方法， 1，自己写一个，(一分钟搞定)，强烈推荐 菜单 Component->New Component 选择 Ancestor Type:TTrackBar Class naem:TMyTrackBar 代码如下： TMyTrackBar = class(TTrackBar) private { Private declarations } protected { Protected declarations } public { Public declarations } published property OnMouseDown;//添加 property OnMouseUp; //添加 end; 保存，然后点击Component->Install Component就可以了 2，截获消息 重载TForm得WndProc然后处理TrackBar得消息
U ukulele Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-19 #3 楼上的大哥,在published添加那两个属性我也知道.我问的意思是如何实现onmousedown这个功能.我想如果只添加这两个属性是不够的吧,应该还要添加一下代码.
U ukulele Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-19 #4 不好意思,可能我没说清楚.我是想自己做一个控件,这个控件是继承trackbar.又希望在这个控件内添加onmousedown事件,不知道如何具体实现
G Genl Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-19 #5 用 RXLib 里的 RXSlider... 比Trackbar好很多 真的 不用不知道。。。。
U ukulele Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-19 #7 我试过了,得到的是属性而不是事件啊.我要的是时间.各位大哥帮帮忙,能给小弟一个完整的答案吗.
L lihuawin Unregistered / Unconfirmed GUEST, unregistred user! 2004-02-20 #8 protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override; 覆盖基类的mousedown就可以了
protected procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);override; 覆盖基类的mousedown就可以了
N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-23 #12 ???????????????????? 我无言以对
