Share via

Click (Evento)

  • Artículo

Tiene lugar cuando se incluye un código en un programa que desencadena el evento, o cuando el usuario presiona y suelta el botón izquierdo del mouse mientras el puntero está sobre un control, cambia el valor de ciertos controles o hace clic en un área en blanco de un formulario.

PROCEDURE Object.Click
[LPARAMETERS nIndex]

Parámetros

  • nIndex
    Identifica de forma única un control si está en una matriz de controles.

Observaciones

El evento Click se produce cuando el usuario:

  • Hace clic con el botón primario del mouse en una casilla de verificación, un botón de comando, un cuadro combinado, un cuadro de lista o un botón de opción.
  • Presiona la BARRA ESPACIADORA cuando un botón de comando, un botón de opción o una casilla de verificación tiene el enfoque.
  • Presiona la tecla ENTRAR cuando un formulario tiene un botón de comando con la propiedad Default establecida en el valor verdadero (.T.).
  • Presiona la tecla de acceso de un control. Por ejemplo, si el título de un botón de comando es "\<Ir a", al presionar ALT+I se desencadena el evento Click.
  • Hace clic en un área en blanco de un formulario. Los eventos Click de un formulario no se producen cuando el puntero está sobre la barra de título, el icono de menú de la ventana o los bordes de la ventana.
  • Hace clic en el área de entrada de texto de un control numérico.
  • Hace clic en un control desactivado. El evento Click se produce en el contenedor en el que se encuentra el control desactivado.

El evento Click también se produce como resultado del código incluido que ejecuta el comando MOUSE.

Ejemplo

El ejemplo siguiente crea un control OptionGroup y coloca el control en un formulario. El control OptionGroup tiene tres botones y según el botón de opción en el que haga clic, aparecerá un círculo, una elipse o un cuadrado. La propiedad ButtonCount se utiliza para especificar el número de botones del control OptionGroup. Las propiedades Buttons y Caption sirven para especificar el texto que aparece junto a cada botón de opción.

El control Shape se utiliza para crear el círculo, la elipse y el cuadrado. El evento Click del control OptionGroup usa una estructura DO CASE ... ENDCASE y la propiedad Value para mostrar la forma adecuada al hacer clic en un botón de opción.

frmMyForm = CREATEOBJECT('Form')  && Create a Form
frmMyForm.Closable = .F.  && Disable the window pop-up menu

frmMyForm.AddObject('cmdCommand1','cmdMyCmndBtn')  && Add Command button
frmMyForm.AddObject('opgOptionGroup1','opgMyOptGrp') && Add Option Group
frmMyForm.AddObject('shpCircle1','shpMyCircle')  && Add Circle Shape
frmMyForm.AddObject('shpEllipse1','shpMyEllipse')  && Add Ellipse Shape
frmMyForm.AddObject('shpSquare','shpMySquare')  && Add Box Shape

frmMyForm.cmdCommand1.Visible =.T.  && "Quit" Command button visible

frmMyForm.opgOptionGroup1.Buttons(1).Caption = "\<Circle"
frmMyForm.opgOptionGroup1.Buttons(2).Caption = "\<Ellipse"
frmMyForm.opgOptionGroup1.Buttons(3).Caption = "\<Square"
frmMyForm.opgOptionGroup1.SetAll("Width", 100) && Set Option group width
frmMyForm.opgOptionGroup1.Visible = .T.  && Option Group visible
frmMyForm.opgOptionGroup1.Click  && Show the circle

frmMyForm.SHOW  && Display the form
READ EVENTS  && Start event processing

DEFINE CLASS opgMyOptGrp AS OptionGroup  && Create an Option Group
   ButtonCount = 3  && Three Option buttons
   Top = 10
   Left = 10
   Height = 75
   Width = 100

   PROCEDURE Click 
      ThisForm.shpCircle1.Visible = .F.  && Hide the circle
      ThisForm.shpEllipse1.Visible = .F.  && Hide the ellipse
      ThisForm.shpSquare.Visible = .F.  && Hide the square
      
      DO CASE
         CASE ThisForm.opgOptionGroup1.Value = 1
            ThisForm.shpCircle1.Visible = .T. && Show the circle
         CASE ThisForm.opgOptionGroup1.Value = 2 
            ThisForm.shpEllipse1.Visible = .T.  && Show the ellipse
         CASE ThisForm.opgOptionGroup1.Value = 3 
            ThisForm.shpSquare.Visible = .T.  && Show the square
      ENDCASE
ENDDEFINE

DEFINE CLASS cmdMyCmndBtn AS CommandButton  && Create Command button
   Caption = '\<Quit'  && Caption on the Command button
   Cancel = .T.  && Default Cancel Command button (Esc)
   Left = 125  && Command button column
   Top = 210  && Command button row
   Height = 25  && Command button height

   PROCEDURE Click
      CLEAR EVENTS  && Stop event processing, close Form
ENDDEFINE

DEFINE CLASS shpMyCircle AS SHAPE  && Create a circle
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 99
   BackColor = RGB(255,0,0)  && Red
ENDDEFINE

DEFINE CLASS shpMyEllipse AS SHAPE  && Create an ellipse
   Top = 35
   Left = 200
   Width = 100
   Height = 50
   Curvature = 99
   BackColor = RGB(0,128,0)  && Green
ENDDEFINE

DEFINE CLASS shpMySquare AS SHAPE  && Create a square
   Top = 10
   Left = 200
   Width = 100
   Height = 100
   Curvature = 0
   BackColor = RGB(0,0,255)  && Blue
ENDDEFINE

Vea también

DblClick (Evento) | MiddleClick (Evento) | MOUSE | MouseDown (Evento) | MouseUp (Evento) | MouseWheel (Evento) | Value (Propiedad)

Se aplica a: CheckBox (Control) | ComboBox (Control) | CommandButton (Control) | CommandGroup (Control) | Container (Objeto) | Control (Objeto) | EditBox (Control) | Form (Objeto) | Grid (Control) | Header (Objeto) | Image (Control) | Label (Control) | Line (Control) | ListBox (Control) | OptionButton (Control) | OptionGroup (Control) | Page (Objeto) | PageFrame (Control) | Shape (Control) | Spinner (Control) | TextBox (Control) | ToolBar (Objeto)