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

Zaher Dirkey parmaja at gmail.com
Thu Jun 18 16:55:31 CEST 2009


or default initialization

function Application: TApplication;
begin
  if CustomApplication = nil then
    CustomApplication := TApplication.Create;
  Result :=  CustomApplication as TApplication;
end;

-- 
Zaher Dirkey




More information about the Lazarus mailing list