//this turns off screen draw for the visual control. Use for the parent panel 
for the //controls you want to freeze
   //   SendMessage(MainPanel.Handle, WM_SETREDRAW, 0, 0);
  
  //   perform data updates, control changes, etc.
   
  // the first message turns screendraw back on, 2nd refreshes
    //   SendMessage(mainPanel.Handle, WM_SETREDRAW, 1, 0);
  //   RedrawWindow(mainPanel.Handle, nil, 0,
  //    RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN);
   
  Dave

"Jamie L. Mitchell" <[EMAIL PROTECTED]> wrote:
          When I am dealing with a group of data-aware controls, I can easily
make data updates look much better by using DisableControls /
EnableControls in a try / finally block.

I have several transforms done to an entire screen that I would like
to be able to do the same thing. For example, when going from browse
mode to edit mode, I change colors, read only and enable states, add
tabs, etc. In some cases, due to calculation times and database
fetches, it may take 1/2 to 1 second to make the change (this is
entirely acceptable to me.) However, some controls change
immediately, and some change at the end of the process. I would like
to freeze the entire screen and then unfreeze it when the transforms
have all been made making it look like it is more professional.

Is there any way to do this? Essentially, I want a DisableForm /
EnableForm like the TDataSet has. I would also like to be able to
send ProcessMessage() so if the entire window is moved or another
window is moved, the app does not look like it is frozen.

Delphi 5 Pro, ADO, and a bunch of 3rd party controls.

Any ideas?

Thanks
jamie



         

                
---------------------------------
Do you Yahoo!?
 Next-gen email? Have it all with the  all-new Yahoo! Mail Beta.

[Non-text portions of this message have been removed]



-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED] 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/delphi-en/

<*> To unsubscribe from this group, send an email to:
    [EMAIL PROTECTED]

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 



Reply via email to