Delphi 5. Учебник



         

OnActiveFormChange



    Событие генерируется при создании новой формы или передаче фокуса ввода от одной формы к другой. Обычно это событие используется в MDI-приложениях для обновления доступных функций меню и кнопок-ускорителей. Ниже приведен пример из шаблона MDI-приложения.

    procedure TMainForm.UpdateMenuItems(Sender: TObject);
    begin
        FileCloseItem.Enabled:= MDIChildCount 0;
        FileSaveItem.Enabled:= MDIChildCount 0;
        FileSaveAsItem.Enabled:= MDIChildCount 0;
    end;

    Процедура UpdateMenuItems назначена в качестве обработчика событию OnActiveFormChange в обработчике
OnCreate.

    procedure TMainForm.FormCreate(Sender: TObject);
    begin
        Application.OnHint:= ShowHint;
        Screen.OnActiveFormChange:= UpdateMenuItems;
    end;




Содержание  Назад  Вперед