Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: my head am 02.10.03 - 07:57:13

Titel: doppelclick blocken
Beitrag von: my head am 02.10.03 - 07:57:13

hallo!

kann man irgendwie erreichen, dass man in ner Form mit dem Doppelclick nicht mehr in den edit-modus kommt?

stefan

Titel: Re:doppelclick blocken
Beitrag von: eknori (retired) am 02.10.03 - 08:01:28

In (declarations) create a global variable for the form:

                                            Dim buttonClickedFlag as Integer

                                            In QueryOpen, you'd want the flag to default to false:

                                            Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As
                                            Variant)
                                            buttonClickedFlag = False
                                            End Sub

                                            In the button code, set the flag to true, along with whatever else you want to do:

                                            Sub Click(Source As Button)
                                            Dim workspace As New NotesUIWorkspace
                                            buttonClickedFlag = True
                                            ...
                                            Call workspace.EditDocument(True)
                                            End Sub

                                            In QueryModeChange,

                                            Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
                                            If Not ( source.EditMode ) And buttonClickedFlag = False Then
                                            Messagebox("Please use the Edit button to modify this form.")
                                            continue = False
                                            End If
                                            End Sub