试试 ActiveForm属性
var
f:TForm;
begin
f := Screen.ActiveForm;
end;
property ActiveForm: TForm;
Read ActiveForm to learn which form in the application has input focus. If the application is not currently active, ActiveForm is the form that will have focus when the application becomes active again.