Происходит в случаях, когда вы включаете в программу код, вызывающий событие в случае, когда пользователь щелкает по клавише мыши на элементе управления, изменяет значение определенных элементов управления или щелкает по клавише мыши в чистой области формы..
PROCEDURE Object.Click |
Примечания
Применяется к: CheckBox Control | ComboBox Control | CommandButton Control | CommandGroup Control | Container Object | Control Object | EditBox Control | Form Object | Grid Control | Header Object | Image Control | Label Control | Line Control | ListBox Control | OptionButton Control | OptionGroup Control | Page Object | PageFrame Control | Shape Control | Spinner Control | TextBox Control | ToolBar Object
Событие 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 |
Смотрите также
Справочное руководство
Событие DblClickСобытие MiddleClick
Команда MOUSE
Событие MouseDown
Событие MouseUp
Событие MouseWheel
Свойство Value
Прочие ресурсы
События (Visual FoxPro)
© Microsoft Corporation. All rights reserved.
Перевод выполнен JS.