You could Try :
 
procedure DisableControls;
var
   i : Integer;
begin
   For i := 0 to Pred(ControlCount) do
      if Controls[i] is TButton then
         Controls[i].Enabled := not Controls[i].Enabled;
end;
 
This would grey the Buttons, which may or may not be desirable.

-----Original Message-----
From: Eamon Reyn [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, 7 June 2000 11:35
To: Multiple recipients of list delphi
Subject: [DUG]: Progress bars


Hi in the application that I am working on we have a small problem with our
progress bars. The problem is when we bring up our progress bar form within
the application we cannot display it modally as this would require us to
write a progress bar form for every process that needed one. Is there any
simple way to stop the user being able to click the buttons etc on the form
behind the progress bar while the progress bar is shown without using code
like frmProgress.ShowModal. 
 
Currently we are considering having a bProgressBarUp type variable to check
against but I don't like this idea that much.
 
TIA
 
Eamon.




CAUTION - This message may contain privileged and confidential information intended 
only for the 
use of the addressee(s) named above.  If you are not the intended recipient of this 
message you are 
hereby notified that any use, dissemination, distribution or reproduction of this 
message is prohibited.  
If you have received this message in error please notify Progressive Enterprises Ltd. 
immediately via 
email at [EMAIL PROTECTED]  Any views expressed in this message 
are those of the 
individual sender and may not necessarily reflect the views of Progressive Enterprises 
Ltd.

This footnote also confirms that Progressive Enterprises Ltd. has swept this email 
message for the 
presence of computer viruses.  This does not guarantee this message is virus free.

---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz

Reply via email to