Hello, here's my idea. In Form_Open use the following Code:
DIM OBJ as Object DIM OBSwatchall AS Observer 'Start an Observer for Each Control on this Form FOR EACH OBJ IN ME.Children OBSwatchall = NEW Observer(OBJ) AS "WatchAll" NEXT Then you only need one Function Like: Public SUB WatchAll_MouseDown() PRINT LAST.Name & "_MouseDown()" END You also can use other Events which must be available for each control like: MouseUp, MouseDown, KeyPress, KeyRelease, GotFocus, LostFocus, ... Regards A.Fröhlke -----Ursprüngliche Nachricht----- Von: Rolf-Werner Eilert [mailto:eilert-sprac...@t-online.de] Gesendet: Mittwoch, 7. September 2011 08:34 An: gambas-user@lists.sourceforge.net Betreff: Re: [Gambas-user] Does really nobody have an idea? Thank you Jorge, at a first glance this looks promising. I'll try to understand it when I've got some more time, maybe this afternoon or so... Regards Rolf Am 06.09.2011 20:35, schrieb Jorge Carrión: > Here there is a class that do exactly what you want (I hope). > > http://www.gambas-es.org/download.php?id=82 > I included a little proyect with example. > > Hope it'll be usefull. > > Regards. > > > 2011/9/6 Rolf-Werner Eilert<eilert-sprac...@t-online.de> > >> Thanks for your idea, Dag-Jarle, but isn't this effort exactly what I >> would like to avoid? >> >> I guess the whole thing depends on the question of how QT or GTK handle >> the events of the controls within a window/application. I cannot imagine >> that the controls are accessed by the GUI (X) directly. That would imply >> an event loop for each control. Instead, I would expect one event loop >> for the application within which you have one event request for each >> window within which you have one event request for each control of that >> window. >> >> If there is a slot for the overall mouse activities of one window or >> application in QT (on the C++ side), it should be easy for Benoit to >> connect this to a Gambas event. If not, things are different :-) >> >> Regards >> >> Rolf >> >> >> Am 06.09.2011 17:04, schrieb Dag-Jarle Johansen: >>> Something happened.... >>> >>> public sub WriteLogg() >>> print GetMe.name (and or other options) >>> end >>> >>> And the heavy stuff is here: >>> >>> for every Object you want to control, you will have to: >>> >>> private sub xxx_control_click() >>> GetMet=xxx_control >>> m.WriteLogg >>> >>> Alternate WriteLogg as function >>> >>> public WriteLogg(xctrl as control) >>> print xctrl.name.... >>> >>> I am sure one of the guys here have more sophisticated solutions for >> you., >>> f.eks the event-handler on every form, but I am not so good at that yet. >>> >>> Regards, >>> Dag-Jarle >>> >>> 2011/9/6 Dag-Jarle Johansen<dag.jarle.johan...@gmail.com> >>> >>>> Hi, >>>> >>>> I had to write something like that in VB for QM. Even though the effort >>>> might be overwhelming, I would do some thing like this: >>>> >>>> make a global object in some module, >>>> f.eks. >>>> m.module >>>> public GetMe as object >>>> >>>> in the same module you save or do anything f.eks >>>> >>>> puclic sub WriteLogg() >>>> >>>> >>>> >>>> 2011/9/6 Fabien Bodard<gambas...@gmail.com> >>>> >>>>> good question rolf :/ >>>>> >>>>> 2011/9/6 Fabien Bodard<gambas...@gmail.com>: >>>>>> first answer for steve >>>>>> >>>>>> Public Sub Slider1_MouseUp() >>>>>> >>>>>> Print "Mouse is released" >>>>>> >>>>>> End >>>>>> >>>>> >>>>> >>>>> >>>>> -- >>>>> Fabien Bodard >>>>> >>>>> >>>>> >> ------------------------------------------------------------------------------ >>>>> Special Offer -- Download ArcSight Logger for FREE! >>>>> Finally, a world-class log management solution at an even better >>>>> price-free! And you'll get a free "Love Thy Logs" t-shirt when you >>>>> download Logger. Secure your free ArcSight Logger TODAY! >>>>> http://p.sf.net/sfu/arcsisghtdev2dev >>>>> _______________________________________________ >>>>> Gambas-user mailing list >>>>> Gambas-user@lists.sourceforge.net >>>>> https://lists.sourceforge.net/lists/listinfo/gambas-user >>>>> >>>> >>>> >>> >> ------------------------------------------------------------------------------ >>> Special Offer -- Download ArcSight Logger for FREE! >>> Finally, a world-class log management solution at an even better >>> price-free! And you'll get a free "Love Thy Logs" t-shirt when you >>> download Logger. Secure your free ArcSight Logger TODAY! >>> http://p.sf.net/sfu/arcsisghtdev2dev >>> _______________________________________________ >>> Gambas-user mailing list >>> Gambas-user@lists.sourceforge.net >>> https://lists.sourceforge.net/lists/listinfo/gambas-user >>> >> >> >> >> ------------------------------------------------------------------------------ >> Special Offer -- Download ArcSight Logger for FREE! >> Finally, a world-class log management solution at an even better >> price-free! And you'll get a free "Love Thy Logs" t-shirt when you >> download Logger. Secure your free ArcSight Logger TODAY! >> http://p.sf.net/sfu/arcsisghtdev2dev >> _______________________________________________ >> Gambas-user mailing list >> Gambas-user@lists.sourceforge.net >> https://lists.sourceforge.net/lists/listinfo/gambas-user >> > ------------------------------------------------------------------------------ > Malware Security Report: Protecting Your Business, Customers, and the > Bottom Line. Protect your business and customers by understanding the > threat from malware and how it can impact your online business. > http://www.accelacomm.com/jaw/sfnl/114/51427462/ > _______________________________________________ > Gambas-user mailing list > Gambas-user@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/gambas-user > ------------------------------------------------------------------------------ Using storage to extend the benefits of virtualization and iSCSI Virtualization increases hardware utilization and delivers a new level of agility. Learn what those decisions are and how to modernize your storage and backup environments for virtualization. http://www.accelacomm.com/jaw/sfnl/114/51434361/ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user ------------------------------------------------------------------------------ Using storage to extend the benefits of virtualization and iSCSI Virtualization increases hardware utilization and delivers a new level of agility. Learn what those decisions are and how to modernize your storage and backup environments for virtualization. http://www.accelacomm.com/jaw/sfnl/114/51434361/ _______________________________________________ Gambas-user mailing list Gambas-user@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/gambas-user