ich erzeuge einen Dialog mit Label-FEldern zur Laufzeit und registriere für jedes Labelfeld einen Listener:
Code: Alles auswählen
'...
oListener = CreateUnoListener("CheckAction_", "com.sun.star.awt.XMouseListener")
'...
With oDialog1
'...
.getControl("Test" & nummer).addMouseListener(oListener)
End With
'...
Sub CheckAction_mouseEntered(rueck)
Dim s1
Dim akt_i
Dim fvh
Dim ctr
rueck.Source.Model.Border = 2
For i = 0 To UBOUND(Colors())
If rueck.Source.Model.BackgroundColor = sv.getByName(Colors(i)) Then
fvh = Colors(i)
Exit For
End If
Next i
oDialog1.Title = fvh 'rueck.Source.Model.BackgroundColor
End Sub
Sub CheckAction_mouseExited( oEvent As Object )
oEvent.Source.Model.Border = 1
End Sub
Sub CheckAction_mouseReleased( oEvent As Object )
End Sub
Sub CheckAction_mousePressed( oEvent As Object )
Wait 3000
oDialog1.Title = oEvent.Source.Model.BackgroundColor
End Sub
Wie erzwinge ich eine Pause/Verzögerung nach dem Mausklick?
Gruß
Stephan