如题:
不知道这里的拖动开始,拖动结束怎么才能控制,需要怎么设置属性,才能控制好拖动事件?
不知道这里的拖动开始,拖动结束怎么才能控制,需要怎么设置属性,才能控制好拖动事件?
解决方案 »
- 用 image1.Canvas.TextOut输入文字的问题??
- DBGRID中 如何实现点击一个按钮改变当前选中行的颜色
- 刚才刮胡子一不小心刮下一大块肉来,我靠疼死我了
- (高分)创建ActiveX dll时找不到父窗体
- 如何执行这update语句???在线等待!!!
- Case 语句要怎么用??
- 入门:如何让listbox选中想要的item项.
- delphi 怎么实现TPageControl控件的ttabsheet的样式
- 我做了一个软件,想发布出来,但我没有主页空间,能告诉我几个,来者2分.
- 请问WINDOWS如何发布程序,请说清楚一点。谢谢。
- 大家好啊,我是花心小鱼呀,我有个问题不敢在别的地儿发,他们的分给的太高.认识我的帮顶下哈!!~希望BZ不要删除!
- 请教一个FireBird 数据库中 SQl 的写法
1.你先要從 Trackcbar這個東西繼承一個東西,例如取名字為 TrackbarEx
2.不用說,看代碼...
//
unit TrackBarEx;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;type
TTrackBarEx = class(TTrackBar)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseUp;//添加之一
property OnMouseDown;//添加之二
end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TTrackBarEx]);
end;end.
{使用方法:
OnMouseDown 設置一個標志(一般為Boolean=ture),在這裡幹你要幹的事情,就是別幹改變歌曲位置的事情...
OnMouseUp 設置Player.Position =...,然後 Boolean = False 翻轉;
}
這樣你應該知道如何做了?