OnActiveControlChange

Это событие возникает при передаче фокуса ввода от одного управляющего элемента к другому. Свойство
ActiveControl обновляется непосредственно перед вызовом события. Вы можете использовать событие, например, для вывода текста подсказки в строке состояния.

    procedure TFormI.ActiveControlChangeHandler(Sender: TObject);
    begin
        if (not Application.Terminated) then
        pnlStatus.Caption:= ActiveControl.Hint;
    end;

Проверка связана с тем, что событие генерируется и при закрытии приложения, а при этом обращение к уже уничтоженному объекту вызовет исключительную ситуацию.

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