Происходит в случаях, когда вы включаете в программу код, вызывающий событие в случае, когда пользователь щелкает по клавише мыши на элементе управления, изменяет значение определенных элементов управления или щелкает по клавише мыши в чистой области формы..


PROCEDURE Object.Click

Примечания

Событие Click происходит, когда пользователь:

Щелкает по левой клавише мыши на элементах управления check box, command button, combo box, list box или option button.
Нажимает на клавишу пробела (SPACEBAR) на клавиатуре, когда фокус установлен на элементах управления command button, option button или check box.
Нажимает на клавишу ENTER, когда на форме имеется командная кнопка, у которой свойство Default установлено в True (.T.).
Нажимает ключ быстрого доступа для элемента управления. Например, если заголовок командной кнопки указан, как "\<Go", то нажатие ALT+G вызовет срабатывание события Click.
Щелкает по клавише мыши в чистой области формы. Событие Click не происходит, когда указатель мыши находится поверх полоски заголовка формы, иконки меню окна или на бордюре окна.
Щелкает по клавише мыши в области ввода текста элемента управления spinner.
Щелкает на заблокированном (disabled) элементе управления. В таком случае, событие Click происходит для контейнера, в котором размещен заблокированный элемент управления.

Событие Click может сработать и в результате исполнения кода, в который включена команда MOUSE.

Замечание
Изменение размеров колонки решетки (grid) не вызывает срабатывания события Click заголовка колонки. Это воздействует на разделители колонок.

Пример

В приведенном ниже примере создается элемент управления OptionGroup и помещается на форму. Элемент управления OptionGroup имеет три кнопки и в зависимости на какой из них произведен щелчок по клавише мыши, на форме появляются круг, эллипс или квадрат. Событие Click элемента OptionGroup использует структуру DO CASE ... ENDCASE и свойство Value для отображения соответствующего контура, когда вы щелкаете по радиокнопке.

	Скопировать код
frmMyForm = CREATEOBJECT('Form') && Create a Form frmMyForm.Closable = .F. && Блокирование всплывающего меню окна frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn') && Ввод командной кнопки в форму frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Ввод группы радиокнопок в форму frmMyForm.AddObject('shpCircle1','shpMyCircle') && Ввод контура "круг" frmMyForm.AddObject('shpEllipse1','shpMyEllipse') && Ввод контура "эллипс" frmMyForm.AddObject('shpSquare','shpMySquare') && Ввод контура "квадрат" frmMyForm.cmdCommand1.Visible =.T. && установка командной кнопки "Quit" видимой frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle" frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse" frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square" frmMyForm.opgOptionGroup1.SetAll("Width", 100) && Установка ширины группы радиокнопок frmMyForm.opgOptionGroup1.Visible = .T. && делаем их видимыми frmMyForm.opgOptionGroup1.Click && Показываем круг frmMyForm.SHOW && отображаем форму на экране READ EVENTS && начинаем обработке событий DEFINE CLASS opgMyOptGrp AS OptionGroup && Создаем группу радиокнопок ButtonCount = 3 && Определяем число радиокнопок - три кнопки в группе Top = 10 Left = 10 Height = 75 Width = 100 PROCEDURE Click ThisForm.shpCircle1.Visible = .F. && прячем круг ThisForm.shpEllipse1.Visible = .F. && прячем эллипс ThisForm.shpSquare.Visible = .F. && прячем квадрат DO CASE CASE ThisForm.opgOptionGroup1.Значение = 1 ThisForm.shpCircle1.Visible = .T. && показываем круг CASE ThisForm.opgOptionGroup1.Значение = 2 ThisForm.shpEllipse1.Visible = .T. && показываем эллипс CASE ThisForm.opgOptionGroup1.Значение = 3 ThisForm.shpSquare.Visible = .T. && показываем квадрат ENDCASE ENDDEFINE DEFINE CLASS cmdMyCmndBtn AS CommandButton && Создаем командную кнопку Caption = '\<Quit' && Заголовок командной кнопки Cancel = .T. && устанавливаем кнопку как дефолтную для Cancel (Esc) Left = 125 Top = 210 Height = 25 PROCEDURE Click CLEAR EVENTS && Прекращаем обработки событий, закрываем форму ENDDEFINE DEFINE CLASS shpMyCircle AS SHAPE && Создаем круг Top = 10 Left = 200 Width = 100 Height = 100 Curvature = 99 BackColor = RGB(255,0,0) && Red ENDDEFINE DEFINE CLASS shpMyEllipse AS SHAPE && Создаем эллипс Top = 35 Left = 200 Width = 100 Height = 50 Curvature = 99 BackColor = RGB(0,128,0) ENDDEFINE DEFINE CLASS shpMySquare AS SHAPE && Создаем квадрат Top = 10 Left = 200 Width = 100 Height = 100 Curvature = 0 BackColor = RGB(0,0,255) ENDDEFINE

Скопировать код

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Блокирование всплывающего меню окна

frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn')  && Ввод командной кнопки в форму
frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Ввод группы радиокнопок в форму
frmMyForm.AddObject('shpCircle1','shpMyCircle')  && Ввод контура "круг"
frmMyForm.AddObject('shpEllipse1','shpMyEllipse')  && Ввод контура "эллипс"
frmMyForm.AddObject('shpSquare','shpMySquare')  && Ввод контура "квадрат"

frmMyForm.cmdCommand1.Visible =.T.  && установка командной кнопки "Quit" видимой

frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle"
frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse"
frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square"
frmMyForm.opgOptionGroup1.SetAll("Width", 100) && Установка ширины группы радиокнопок
frmMyForm.opgOptionGroup1.Visible = .T.  && делаем их видимыми
frmMyForm.opgOptionGroup1.Click  && Показываем круг

frmMyForm.SHOW  && отображаем форму на экране
READ EVENTS  && начинаем обработке событий

DEFINE CLASS opgMyOptGrp AS OptionGroup  && Создаем группу радиокнопок
   ButtonCount = 3  && Определяем число радиокнопок - три кнопки в группе
   Top = 10
   Left = 10
   Height = 75
   Width = 100

   PROCEDURE Click 
      ThisForm.shpCircle1.Visible = .F.  && прячем круг
      ThisForm.shpEllipse1.Visible = .F.  && прячем эллипс
      ThisForm.shpSquare.Visible = .F.  && прячем квадрат
      
      DO CASE
         CASE ThisForm.opgOptionGroup1.Значение = 1
            ThisForm.shpCircle1.Visible = .T. && показываем круг
         CASE ThisForm.opgOptionGroup1.Значение = 2 
            ThisForm.shpEllipse1.Visible = .T.  && показываем эллипс
         CASE ThisForm.opgOptionGroup1.Значение = 3 
            ThisForm.shpSquare.Visible = .T.  && показываем квадрат
      ENDCASE
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn AS CommandButton  && Создаем командную кнопку
   Caption = '\<Quit'  && Заголовок командной кнопки
   Cancel = .T.  && устанавливаем кнопку как дефолтную для Cancel (Esc)
   Left = 125  
   Top = 210  
   Height = 25  

   PROCEDURE Click
      CLEAR EVENTS  && Прекращаем обработки событий, закрываем форму
ENDDEFINE

DEFINE CLASS shpMyCircle AS SHAPE  && Создаем круг
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 99
   BackColor = RGB(255,0,0)  && Red
ENDDEFINE

DEFINE CLASS shpMyEllipse AS SHAPE  && Создаем эллипс
   Top = 35
   Left = 200
   Width = 100
   Height = 50
   Curvature = 99
   BackColor = RGB(0,128,0) 
ENDDEFINE

DEFINE CLASS shpMySquare AS SHAPE  && Создаем квадрат
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 0
   BackColor = RGB(0,0,255)  
ENDDEFINE

Примечания

Пример

Смотрите также

Справочное руководство

Прочие ресурсы