Type | Description | |||
Shift as Integer | An integer that corresponds to the state of the SHIFT, CTRL, and ALT keys. | |||
X as OLE_XPOS_PIXELS | A single that specifies the current X location of the mouse pointer. The x values is always expressed in container coordinates. | |||
Y as OLE_YPOS_PIXELS | A single that specifies the current Y location of the mouse pointer. The y values is always expressed in container coordinates. |
Use the DblClick event to notify your application that user has dbl clicked the control. Use the PageFromPoint property to get the page from the cursor.
Syntax for DblClick event, /COM version, on:
private void DblClick(object sender, AxEXTABLib._ITabEvents_DblClickEvent e) { } void OnDblClick(short Shift,long X,long Y) { } void __fastcall DblClick(TObject *Sender,short Shift,int X,int Y) { } procedure DblClick(ASender: TObject; Shift : Smallint;X : Integer;Y : Integer); begin end; procedure DblClick(sender: System.Object; e: AxEXTABLib._ITabEvents_DblClickEvent); begin end; begin event DblClick(integer Shift,long X,long Y) end event DblClick Private Sub DblClick(ByVal sender As System.Object, ByVal e As AxEXTABLib._ITabEvents_DblClickEvent) Handles DblClick End Sub Private Sub DblClick(Shift As Integer,X As Single,Y As Single) End Sub Private Sub DblClick(ByVal Shift As Integer,ByVal X As Long,ByVal Y As Long) End Sub LPARAMETERS Shift,X,Y PROCEDURE OnDblClick(oTab,Shift,X,Y) RETURN |
<SCRIPT EVENT="DblClick(Shift,X,Y)" LANGUAGE="JScript"> </SCRIPT> <SCRIPT LANGUAGE="VBScript"> Function DblClick(Shift,X,Y) End Function </SCRIPT> Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY Forward Send OnComDblClick llShift llX llY End_Procedure METHOD OCX_DblClick(Shift,X,Y) CLASS MainDialog RETURN NIL void onEvent_DblClick(int _Shift,int _X,int _Y) { } function DblClick as v (Shift as N,X as OLE::Exontrol.Tab.1::OLE_XPOS_PIXELS,Y as OLE::Exontrol.Tab.1::OLE_YPOS_PIXELS) end function function nativeObject_DblClick(Shift,X,Y) return |
The following sample prints the caption of the page that was dbl clicked:
Private Sub Tab1_DblClick(Shift As Integer, X As Single, Y As Single) With Tab1 Dim p As Long p = .PageFromPoint(X / Screen.TwipsPerPixelX, Y / Screen.TwipsPerPixelY) If (p >= 0) Then Debug.Print "The page " & .Pages(.Pages.PosToIndex(p)).Caption End If End With End Sub