Как отловить смену фокуса для всех контролов?

Delphi , Компоненты и Классы , Свойства и События

Code:

procedure TForm1.ActiveControlChange(Sender: TObject);

begin

Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Screen.OnActiveControlChange := ActiveControlChange;

end;

Автор: p0s0l

Взято с Vingrad.ru http://forum.vingrad.ru

В статье описывается способ отловить изменение фокуса для всех контролов в приложении Delphi, используя процедуру TForm1.ActiveControlChange и привязку к событию OnActiveControlChange.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Свойства и События ::

Время компиляции файла: 2024-12-22 20:14:06
2025-06-16 11:05:48/0.0053791999816895/0