[Lazarus] Some thoughts about the global 'Application' instance.

Zaher Dirkey parmaja at gmail.com
Thu Jun 18 16:53:34 CEST 2009


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




More information about the Lazarus mailing list