FoxClub Forums > Архив конференции по VFP до 2005 года

:: Архив конференции по VFP до 2005 года

• Войти

Вопрос по Spinner
Saratoga Автор Сообщений: 494 Дата регистрации: 02.02.2004	Saratoga 22.03.05 04:46:32 Почему в Spinner не обрабатываются события MouseUp, MouseDown, InterfctiveChange? Обрабатывается только событие при смене фокуса на другой элемент LostFocus, Valid...

Re: Вопрос по Spinner
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 22.03.05 04:52:34 Я аж испугался - проверил - все нормально работает даже если spinner один на форме - может чего заперенаследовал ? PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** -- ParentClass: form -- BaseClass: form -- Time Stamp: 03/22/05 09:52:11 AM DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT spinner1 AS spinner WITH ; Height = 26, ; Left = 60, ; Top = 40, ; Width = 76, ; Name = "Spinner1" PROCEDURE spinner1.MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord Activate Screen ? 'Mouse up' ENDPROC PROCEDURE spinner1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord Activate Screen ? 'Mouse down' ENDPROC PROCEDURE spinner1.InteractiveChange Activate Screen ? 'Interactive change' ENDPROC ENDDEFINE * -- EndDefine: form1 ************************************************* ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Вопрос по Spinner

piva

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004

piva

22.03.05 04:52:34

Я аж испугался - проверил - все нормально работает даже если spinner один на форме - может чего заперенаследовал ?


PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

**************************************************
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   03/22/05 09:52:11 AM
*
DEFINE CLASS form1 AS form


    DoCreate = .T.
    Caption = "Form1"
    Name = "Form1"


    ADD OBJECT spinner1 AS spinner WITH ;
        Height = 26, ;
        Left = 60, ;
        Top = 40, ;
        Width = 76, ;
        Name = "Spinner1"


    PROCEDURE spinner1.MouseUp
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        Activate Screen
        ? 'Mouse up'
    ENDPROC


    PROCEDURE spinner1.MouseDown
        LPARAMETERS nButton, nShift, nXCoord, nYCoord
        Activate Screen
        ? 'Mouse down'
    ENDPROC


    PROCEDURE spinner1.InteractiveChange
        Activate Screen
        ? 'Interactive change'
    ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************

------------------
Часто бывает так, что есть над чем задуматься, а нечем.

Re: Вопрос по Spinner
Saratoga Автор Сообщений: 494 Дата регистрации: 02.02.2004	Saratoga 22.03.05 06:34:55 Блин, может версия старая фокса? vfp 08.00.0000.2521

Re: Вопрос по Spinner
piva Сообщений: 18655 Откуда: Курган Дата регистрации: 24.03.2004	piva 22.03.05 06:43:26 Это вроде как без SP1 у меня 08.00.0000.3117 ------------------ Часто бывает так, что есть над чем задуматься, а нечем.

Re: Вопрос по Spinner
Saratoga Автор Сообщений: 494 Дата регистрации: 02.02.2004	Saratoga 22.03.05 15:43:42 Спасибо, поищу SP1)

:: Список Форумов•Список тем•Поиск•Войти

Извините, но у вас нет прав для того, чтобы оставлять сообщения в этом форуме.

On-line: 4 (Гостей: 4)