andrewk
Если сделать двойной щелчок мышки, то происходят события:
MouseDown, MouseUp, Click,
MouseDown, MouseUp, DblClick.

В связи с этим «промежуточным» Click что-то не соображу, как повешать разные действия на одинарный и двойной щелчки? Или как в этом Click узнать, что будет двойной и не выполнять своё «одиночное» действие?

oForm = CREATEOBJECT('Form1')
oForm.SHOW(1)


DEFINE CLASS Form1 AS form
  AutoCenter = .T.

  ADD OBJECT lbl1 AS label WITH ;
    Height = 50, ;
    Left = 150, ;
    Top = 100, ;
    Width = 100, ;
    BackColor = RGB(255,255,255)

  ADD OBJECT timer1 AS timer WITH Enabled = .F., Interval = 500

  PROCEDURE lbl1.MouseDown
    LPARAMETERS nButton, nShift, nXCoord, nYCoord
    WITH thisform.timer1
    .Enabled = IIF(.Enabled, .F., .T.)
    ENDWITH 
  ENDPROC

  PROCEDURE lbl1.DblClick
    ? "DblClick" 
  ENDPROC

  PROCEDURE timer1.Timer
    ? "MouseButton" 
    this.Enabled = .F.
  ENDPROC

ENDDEFINE

of63
Если бы это было так, то DblClick и Click нельзя было использовать одновременно (вешать на них обработчики в одном обьекте), а на самом деле это нормально работает...

Chemberzhy
никто еще не пожаловался на то, что клик вместо даблклика сработал или они в кучу начучучили

of63
Если бы это было так

of63
то DblClick и Click нельзя было использовать одновременно (вешать на них обработчики в одном обьекте)

andrewk
Именно поэтому и спрашиваю, как обойти?

Crispy
Йоперный теятр.

akvvohinc
Первое, что пришло в голову:
1. Click ничего не делает, кроме запуска некоего таймера, который
...

andrewk
На самом деле я думал, есть какой-то общеизвестный костыль, который я не вижу. Чтоб универсально включить это в базовый класс.

Аспид
Задумался, почему же никогда не натыкался в реале.
Полагаю, слишком специфичные события.

lulgu
А самые крутые спецы даже раскрасить посты сумели.

ДЛБ

Crispy

andrewk
Именно поэтому и спрашиваю, как обойти?

Йоперный теятр.
Мой пример наверху невидимый что ли ни для кого совсем не был?

Chemberzhy
Подправил ...

lulgu
Или может так