Any one know how to get the Active Handle from the current Form from TApplication ? Delphi has something for this but i cant see it.

I'm in the progress of getting JVCL working under FPC / lazarus ( FPC 2.5.1 & Lazarus Win64 V 0.9.29 )

I suspect i might need to make a property to read the TList of FFormList and check on each form to out if its the active form. ( not sure about this part ).

Here is a function for you:

function FindActiveForm: TCustomForm;
var
  C: TControl;
begin
  C := FindControl(GetFocus);
  if (C  nil) and (C.Parent  nil) then
    Result := GetParentForm(C)
  else
    Result := nil;
end;

You are searching the wrong object. /
TScreen.ActiveCustomForm (as I remember).

Best regards,
Paul Ishenin.