Stop responding to mouse clicks after first mouse click???

I've never used Delphi but this is an idea.
Try this.
After the first mouse click,
1) display the new screen (  SCREEN 2)
2) loop until no other clicks ( repeat until .... )
3) continue the program.

On Fri, 18 Oct 1996, "Donovan J. Edye" <infoafr...@dial.pipex.co.za> wrote:

Quote
>G'Day All,

>Using Delphi 2.0. I am writing a touch screen application. I would
>like to respond to a SINGLE mouse click and then DISCARD any others
>that are waiting in the message queue (ie. if a user repeatedly
>touches the touch screen while screen 1 is visible I don't want the
>additional mouse clicks to be processed by screen 2, screen 3 etc.)
>and the only re-activate mouse events when I specify.

>Another way...

>click-ONE, click-TWO, click-THREE
>Respond To Click-ONE
>Ignore mouse clicks
>Remove Click-TWO, Click-THREE from message queue
>Respond to mouse clicks

>I have played with PeekMessage and Applicatio.OnMessage and have not
>been able to work this out. Please put me out of my misery. Appreciate
>the help. Please mail me direct if possible....
>--Donovan

>---------------------------------------------------------------------------
>"If you're not busy being born then you are busy dying"  - Bob Dylan

>E-Mail: infoafr...@dial.pipex.co.za       (Donovan J. Edye)

>For the BIGGEST tourist information source on Southern Africa direct your
>web browser to:

>http://www.infoafrica.co.za
>---------------------------------------------------------------------------

 +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
 |                                               |
 |                                               |
 +-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+

       /_//_//_/    /_//_//_/      /_//_//_/      /_/
    /_/       /_/  /_/     /_/    /_/     /_/    /_/
   /_/       /_/  /_/       /_/  /_/       /_/  /_/
  /_/       /_/  /_/       /_/  /_/       /_/  /_/
 /_/       /_/  /_/       /_/  /_/       /_/  /_/
/_/       /_/  /_/      /_/   /_/      /_/  
 /_//_//_/    /_//_//_/      /_//_//_/      /_/

                        \\|//
     _____________ooo__(_0_0_)__ooo_____________
 / ^ \                                          \
|  @  |           THE ODD MAILING LIST           |
 \ _ /__________________________________________/  

            " To add spice to your life "

          HOW TO SUBSCRIBE:
          Send mail to <shaw...@pl.jaring.my>
          with the SUBJECT.  SUBSCRIBE ODD

  This list is operated on a when I like it basis.
  It will include humour, proverbs and other neat
  stuff. I will try to keep it on a daily basis.

=-=-=-=-=-=-=-=-= COPYRIGHT NOTICE =-=-=-=-=-=-=-=-=
All materials presented are owned by their authors.
They have been sourced from different areas.

=-=-=-=-=-=-=- FREE GIFT SUBSCRIPTION -=-=-=-=-=-=-=
You can subscribe a friend ( with their permission )
by sending mail with subject   SUBSCRIBE ODD FRIEND
and including their e-mail address in the body.

_                                             _  _
 | Admin,             ooO   Ooo              | || |  
 | Shawn Tan.        (   ) (   )          _ _| || |
 |====                \ (   ) /          | | | __ |
 / ^ \_                \_) (_/           |_|_||__ \
|  @  |\                                  \      \/
 \ _ /                                     \_____/