Joost wrote

>I am from the FPC team
:)

I like to talk, and forgive me if i be stupid.
in Forms.pas

var
   Application: TApplication = nil;

move it to CustApp.pp

var
   CustomApplication: TCustomApplication = nil;

and replace it in Forms.pas to be a function

function Application: TApplication;
begin
  Result :=  CustomApplication as TApplication;
end;

Thanks for your patience.

-- 
Zaher Dirkey

-- 
Zaher Dirkey

--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus

Reply via email to