Hello
I do all my work via integration with Delphi4, soon to be 5, and found that
at various times I strange happenings. It took a while to even get the
error message to the front of the processess. Then to figure out what was
wrong. By calling the WinAPI GetAsyncKeyState it will flush out the
keys/messges about the ESC key being pressed. What bugs me is that I never
actually pressed the ESC key until I started the testing how to fix
it...................
You might have to have this is your process loop in VB/MB
I haven't tested the actual call in MB and stopped using VB awhile back so
just how and where you place it will be up to trial and error
IN DELPHI
EscKey: Integer;
EscKey:=getasynckeystate(27);
IN VB / MB
Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState"
(ByVal vKey As Integer) As Integer
DIM EscKey as Integer
EscKey = GetAsyncKeyState(27)
Hope this helps...............................it worked for me
Trey Pattillo
[EMAIL PROTECTED]
http://www.wap3.com
----- Original Message -----
From: Sean Richards <[EMAIL PROTECTED]>
To: 'MapInfo List' <[EMAIL PROTECTED]>
Sent: Wednesday, 28 July, 1999 17:43
Subject: MI Selection control query
>Hi all,
>
>I have a little query, about queries actually. Does anyone know if there
is
>some way to protect a selection in progress from user intervention. I am
>referring to the (good) facility within MapInfo that allows a user to push
>ESC and halt the selection procedure. I have a case here where that
ability
>is undesirable - automated procedures.
>
>The best I have come up with is removing the ESC key from all of the
>keyboards in the office (lateral concept). Anyone got any better ideas?
>
>Input appreciated.
>
>Thanks
>
>Sean Richards
>ERSIS Australia
>Level 2 436 St Kilda Rd, PO Box 3055. Telephone +61 3 986 77322
>Melbourne. VIC. 3004. Australia. Facsimile +61 3 986 77422
>Email: [EMAIL PROTECTED]
>
>On the web at http:\\www.ersis.com.au
>__________________________________
>The views expressed in this message do not necessarily
>reflect the views of ERSIS Australia.
>
>
>----------------------------------------------------------------------
>To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
>"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
----------------------------------------------------------------------
To unsubscribe from this list, send e-mail to [EMAIL PROTECTED] and put
"unsubscribe MAPINFO-L" in the message body, or contact [EMAIL PROTECTED]
