• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 271
  • Last Modified:

Real world hourglass cursor

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
miv
Asked:
miv
  • 4
  • 2
1 Solution
 
MatveyCommented:
Make your form disabled - Form1.Disabled := True;
0
 
MatveyCommented:
Make your form disabled - Form1.Disabled := True;
0
 
mivAuthor Commented:
Does not work. I can still select menu items and press buttons e.t.c.
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
MatveyCommented:
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
 
mivAuthor Commented:
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
 
MatveyCommented:
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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now