https://foro.gambas-es.org/viewtopic.php?f=4&t=7912&p=47638#p47638
-----------------------------------
mateobadajoz
Thursday, 12 March 2020, 20:24

Re: Menu Editor Y Herencia Del Control Event
-----------------------------------
[quote user="vuott" post="47625"]...[i]ad exemplum[/i] con un [i]Balloon[/i] (hace falta crear al menos una voz de Menu):

[code linenumbers=false syntax=gambas]Private tm As Timer


Public Sub Form_Open()

  With tm = New Timer As "Tempus"
    .Delay = 50
    .Start
  End With

End


Public Sub Tempus_Timer()
  
  Dim rt As New Rect(Me.ScreenX + 10, Me.ScreenY + 10, Me.Font.TextWidth(Menu1.Caption), Me.Font.TextHeight(Menu1.Caption))
  
  If rt.Contains(Mouse.ScreenX, Mouse.ScreenY) Then Balloon.Info("Mus intravit !", Me, 10 + (Me.Font.TextWidth(Menu1.Caption) / 2), 5)
  
End[/code][/quote]


Este ejemplo me ha venido genial, muchísimas gracias!


