Delphi FAQ - Как отследить переход фокуса в приложении?

Written on . Posted in Delphi

ОГЛАВЛЕНИЕ

Страница 78 из 86

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

procedure TForm1.AppControlChange(Sender: TObject);
 begin
    if Sender is TScreen then
      Caption := TScreen(Sender).ActiveForm.ActiveControl.Name;
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Screen.OnActiveControlChange := AppControlChange;
 end;


Leonid Troyanovsky <Адрес электронной почты защищен от спам-ботов. Для просмотра адреса в вашем браузере должен быть включен Javascript.>


форум delphi