Solved

Real world hourglass cursor

Posted on 1998-07-07
6
262 Views
Last Modified: 2012-06-22
I don´t want the my app. to process any keyboard or mouseevents while the cursor state is crHourGlass.
What is the best way to do this ? (Considering overhead and ease of implementation)

  Michael
0
Comment
Question by:miv
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
6 Comments
 
LVL 3

Expert Comment

by:Matvey
ID: 1357222
Make your form disabled - Form1.Disabled := True;
0
 
LVL 3

Expert Comment

by:Matvey
ID: 1357223
Make your form disabled - Form1.Disabled := True;
0
 
LVL 1

Author Comment

by:miv
ID: 1357224
Does not work. I can still select menu items and press buttons e.t.c.
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 3

Expert Comment

by:Matvey
ID: 1357225
I tested it with all forms: Normal, MDI, everything! I set the ENABLED property of the FORM to FALSE and it can't receve any clicks, key strokes, menu selects, move_window message - nothing! You can't even close it with Alt+F4!

What's wrong here?

(PS sorry, there is no such property as Disabled like i posted in the first comment, it's "Enabled" instead...)
0
 
LVL 1

Author Comment

by:miv
ID: 1357226
The non-modal forms created by the form, can still recieve input, but you´re right, it works for the form where I set enabled:=false, sorry.
Is there any easy and fast way to disable all "child" windows.
I could traverse TForm.Controls and do it that way, but that seems to be slow ?

ps. Just answer the Q again, I will award you the points.
0
 
LVL 3

Accepted Solution

by:
Matvey earned 120 total points
ID: 1357227
You can disble all child windows like this:

  with Form1 do for I := MDIChildCount-1 downto 0 do
     MDIChildren[I].Enabled := False

-I don't think it's slow...

Sorry for the misunderstaning and good luck,
bosism@netvision.net.il
0

Featured Post

Free Tool: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
code issue 8 185
Multiple image collision 13 88
Delphi: sending SMS on android platform 1 68
Can Live bindings change TGrid Cell Colour ? 1 33
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

733 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question