БОЛЬШОЙ FAQ ПО DELPHI



Перехват событий дочерних MDI-форм


 procedure TMainForm.FormCreate(Sender: TObject);
 begin
   {  здесь разместите код FormCreate  }
   Screen.OnActiveFormChange := UpdateObjectss;
   {  и здесь тоже, если нужно...  }
 end;
 
 procedure TMainForm.UpdateObjects(Sender: TObject);
 begin
   <имяобъекта>.Enabled := MDIChildCount > 0;
 end;
 

(MDIChildCount > 0) возвращает true, если открыто _любое_ дочернее окно, и false в противном случае. Так, вы не должны беспокоиться о количестве открытых дочерних окон.




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ