Как отследить переход фокуса в приложении
Как отследить переход фокуса в приложении
Как отследить переход фокуса в приложении 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;
