Здравствуйте! В программе использую простой бегунок процесса, который сделан в виде примитивной формы (не модальной) и появляется поверх всех окон путём create в момент начала процесса. Чтобы избежать случайного нажатия кнопок на других формах, в Delphi 2007 использовал следующий код: //сделать enabled=false для всех форм (кроме основной) в момент начала работы бегунка for i := 0 to Screen.FormCount-1 do begin if (Screen.Forms[i]<>Form1) then //Form1 - основная форма программ ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=82531