How to get the currently active form in my application?

问题

How to get the currently active (focused) form in my application?

回答1:

You can code the following ways :

   var CurrentForm: TForm; // Make sure to make it a global variable

  procedure KeyDownEvents(var Key: Word; Shift: TShiftState);
    begin
    CurrentForm:=Screen.ActiveForm.Name;
    if Key = VK_F9 then CurrentForm.KeyBoard1.Show;
    end;

This will fix the issue. Similarly you can handle the form on mouse click and other key press. Hope this helps.

回答2:

Screen.ActiveForm does the trick.

来源：https://stackoverflow.com/questions/29846548/how-to-get-the-currently-active-form-in-my-application