| Статистика | 
|
|
Каталог статей
Перехват событий дочерних MDI-форм
procedure
TMainForm.FormCreate(Sender: TObject);
begin
{ здесь разместите код FormCreate
}
Screen.OnActiveFormChange := UpdateObjectss;
{ и здесь тоже, если нужно...
}end;
procedure
TMainForm.UpdateObjects(Sender: TObject);
begin
<имяобъекта>.Enabled := MDIChildCount > 0;end;
|
|
|
Просмотров: 447
7
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
