Hallo Mark. Thank you very much for your detailed answer. It gives me some work to do because I'm not yet familiar with object oriented programming. But with the help of your example and the documents included in the OOREXX package I should be able to figure it out.
Wolfgang Westphal > -----Original Message----- > From: Mark Miesfeld [mailto:miesf...@gmail.com] > Sent: Saturday, October 10, 2009 6:59 PM > To: Open Object Rexx Users > Subject: Re: [Oorexx-users] How to capture a right control key > > > On Sat, Oct 10, 2009 at 9:26 AM, Wolfgang Westphal > <wolfgang.westph...@web.de> wrote: > > > I would like to capture a pressed right control key > whithout any other > > key beeing pressed. I.ve already tried the SYSGETKEY > Utility, but it > > didn't do the trick. > > You can do this on Windows with an ooDialog dialog, but I > don't think it is possible in a command line program. > > Plus it will only capture the key press when the dialog has > the focus. Probably not what you want. But, here is a > working example: > > /* Dialog that captures the Control key keypress event. */ > > dlg = .ControlKey~new > if dlg~initCode = 0 then do > dlg~createCenter(170, 90, "Show Control Key Event", - > "VISIBLE MAXIMIZEBOX MINIMIZEBOX") > dlg~execute("SHOWTOP", IDI_DLG_OOREXX) > dlg~deinstall > end > > -- End of entry point. > ::requires "OODWin32.cls" > ::requires "WinSystm.cls" > > ::class 'ControlKey' subclass UserDialog - > inherit AdvancedControls VirtualKeyCodes > > ::constant CtrlKey 17 > > ::method defineDialog > > self~addButton(IDOK, 130, 70, 35, 15, "Quit") > > ::method initDialog > self~connectKeyPress(onCtrl, self~CtrlKey) > > ::method onCtrl > use arg key, shift, control, alt, info > say 'Key press:' key 'shift?' shift 'control?' control || - > ' alt?' alt 'extra info:' info > > Here's some output: > > C:\work.ooRexx>captureCtrlKey.rex > Key press: 17 shift? 0 control? 1 alt? 0 extra info: numOn > capsOff rControl scrollOff Key press: 17 shift? 0 control? 1 > alt? 0 extra info: numOn capsOff lControl scrollOff > > C:\work.ooRexx> > > By the way, Ven if you're reading this - it is also an > example of providing minimize and maximize buttons. > > -- > Mark Miesfeld > > -------------------------------------------------------------- > ---------------- > Come build with us! The BlackBerry(R) Developer Conference in > SF, CA is the only developer event you need to attend this > year. Jumpstart your developing skills, take BlackBerry > mobile applications to market and stay > ahead of the curve. Join us from November 9 - 12, 2009. > Register now! http://p.sf.net/sfu/devconference > _______________________________________________ > Oorexx-users mailing list > Oorexx-users@lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/oorexx-users > ------------------------------------------------------------------------------ Come build with us! The BlackBerry(R) Developer Conference in SF, CA is the only developer event you need to attend this year. Jumpstart your developing skills, take BlackBerry mobile applications to market and stay ahead of the curve. Join us from November 9 - 12, 2009. Register now! http://p.sf.net/sfu/devconference _______________________________________________ Oorexx-users mailing list Oorexx-users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/oorexx-users
