Click-Ereignis

Artikel
04/01/2008

Dieses Ereignis tritt auf, wenn es von Code in einem Programm ausgelöst wird oder der Benutzer die linke Maustaste drückt und wieder loslässt, während sich der Zeiger über einem Steuerelement befindet. Es tritt ebenfalls auf, wenn der Benutzer den Wert bestimmter Steuerelemente ändert oder in den freien Bereich eines Formulars klickt.

PROCEDURE Object.Click
[LPARAMETERS nIndex]

Parameter

nIndex
Kennzeichnet ein Steuerelement eindeutig, wenn es sich in einem Steuerelementarray befindet.

Hinweise

Das Click-Ereignis wird ausgelöst, wenn der Benutzer Folgendes ausführt:

Mit der linken Maustaste auf ein Kontrollkästchen, eine Befehlsschaltfläche, ein Kombinations-, ein Listen- oder ein Optionsfeld klickt.
Die LEERTASTE drückt, während eine Befehlsschaltfläche, ein Optionsfeld oder ein Kontrollkästchen den Fokus hat.
Die EINGABETASTE drückt, wenn die Default-Eigenschaft einer Befehlsschaltfläche des Formulars auf den Wert Wahr (.T.) festgelegt ist.
Die Zugriffstaste eines Steuerelements drückt; wenn z. B. die Beschriftung einer Befehlsschaltfläche "\<Start" ist, wird durch Drücken der Tasten ALT+S das Click-Ereignis ausgelöst.
auf einen leeren Bereich auf einem Formular klickt. Click-Ereignisse eines Formulars treten nicht auf, wenn der Zeiger auf der Titelleiste, dem Schließfeld oder dem Fensterrand steht.
Auf den Texteingabebereich eines Drehfeldes klickt.
Auf ein deaktiviertes Steuerelement klickt. Das Click-Ereignis wird für den Container ausgelöst, auf dem das deaktivierte Steuerelement platziert ist.

Das Click-Ereignis wird auch durch Code ausgelöst, der den Befehl MOUSE ausgibt.

Beispiel

Im folgenden Beispiel wird ein Optionsgruppen-Steuerelement (OptionGroup) erstellt und auf einem Formular angeordnet. Die Optionsgruppe verfügt über drei Schaltflächen; je nach angeklicktem Optionsfeld wird ein Kreis, eine Ellipse oder ein Quadrat angezeigt. Mit Hilfe der ButtonCount-Eigenschaft wird die Anzahl der Optionsfelder der Optionsgruppe angegeben. Die Eigenschaften Buttons und Caption geben den neben den Optionsfeldern angezeigten Text an.

Mit Hilfe des Form-Steuerelements (Shape) werden Kreis, Ellipse und Quadrat erstellt. Das Click-Ereignis des Optionsgruppen-Steuerelements (OptionGroup) verwendet eine DO CASE ... ENDCASE-Befehlsstruktur und die Value-Eigenschaft, um beim Klicken auf eine Optionsschaltfläche die entsprechende Form anzuzeigen,

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

Siehe auch

Share via

Click-Ereignis

Parameter

Hinweise

Beispiel

Siehe auch

Zusätzliche Ressourcen