>>How can I detect that user keep mouse button down on a commandbutton ?
>>
>>For exemple, I'd like to make repetitive task, instead of clicking 1000x on a button, it'll be better than user keep mouse's button down on de commandbutton (the same way the user keep button down on a scrollbar in a grid)
>>
>>thanks
>
>A quick example:
>
>
>Public oForm
>
>oForm = Newobject("repeatsample")
>
>oForm.Show()
>
>Define Class repeatsample As Form
>
>
> Height = 101
> Width = 275
> DoCreate = .T.
> AutoCenter = .T.
> Caption = "Form1"
> Name = "Form1"
>
>
> Add Object command1 As CommandButton With ;
> Top = 60, ;
> Left = 180, ;
> Height = 27, ;
> Width = 84, ;
> Caption = "Command1", ;
> Name = "Command1"
>
>
> Add Object label1 As Label With ;
> AutoSize = .T., ;
> Caption = "MOUSE UP", ;
> Height = 17, ;
> Left = 12, ;
> Top = 12, ;
> Width = 69, ;
> Name = "Label1"
>
>
> Add Object timer1 As Timer With ;
> Top = 36, ;
> Left = 216, ;
> Height = 23, ;
> Width = 23, ;
> Enabled = .F., ;
> Interval = 1000, ;
> Name = "Timer1"
>
>
> Procedure command1.MouseUp
> Lparameters nButton, nShift, nXCoord, nYCoord
> Thisform.label1.Caption = "MOUSE UP"
> Thisform.timer1.Enabled = .F.
> Endproc
>
>
> Procedure command1.MouseDown
> Lparameters nButton, nShift, nXCoord, nYCoord
> Thisform.label1.Caption = "MOUSE DOWN"
> *!* Do you thing here, after 1 second repetitive thing starts
> Thisform.timer1.Reset()
> Thisform.timer1.Enabled = .T.
> Endproc
>
>
> Procedure timer1.Timer
> Thisform.label1.Caption = "MOUSE DOWN " + Time()
> *!* Do your repetitive thing here
> Endproc
>
>
>Enddefine
>
Procedure command1.MouseUp
Lparameters nButton, nShift, nXCoord, nYCoord
Thisform.timer1.Enabled = .F.
Thisform.label1.Caption = "MOUSE UP"
Endproc