DelphiOrigen

El Rinconcito de Delphi

Delphi en sus orígenes
José Luis Freire
jlfreire@elrinconcito.com

El presente artículo es publicado en El Rinconcito de Delphi.
Es ilegal cualquier actuación que vulnere los derechos del autor.

El Rinconcito de Delphi

Delphi en sus orígenes

Delphi en sus orígenes
1. TApplication
El funcionamiento de la clase TApplication.
En todas las aplicaciones que se generen,tanto si son de servicio como si contienen
formularios, excepto las de Consola, vamos a encontrar una clase básica: TApplication. No la
vamos a encontrar en el panel correspondiente, podemos incluso prescindir de su existencia si
queremos (que probablemente no queramos) pero en cualquier caso va a estar ahí. En las
relaciones de Delphi con Windows, en las ventanas, en los mensajes, en lasexcepciones,
ejecutando el programa y en múltiples lugares, sin que la veamos, estará presente.

De dónde proviene.
Bien, sabemos que la clase por excelencia es Tobject y que de ella derivan el resto. Si
entramos en la ayuda de Delphi y vemos su jerarquía, nos podemos hacer una idea bastante
aproximada de por dónde anda: TObject -> TPersistent -> TComponent -> TApplication.
La primera clase que se crea en elprimer módulo, el System.pas, es Tobject, no podemos
llegar más bajo en la herencia, de forma que si no indicamos lo contrario y construimos una
clase nueva, esta será un descendiente directo de Tobject. Del módulo TypeInfo.pas
(Información de Tipos) podemos obtener parte de lo que hace esta clase primaria, además de
Constructores y Destructores:
TObject = class
constructor Create;
procedureFree;
class function InitInstance(Instance: Pointer): TObject;
procedure CleanupInstance;
function ClassType: TClass;
...

Pero la única que se crea en la librería de componentes que toma a ésta como ancestro es
Tpersistent. De la cual deriva Tcomponent. Este, aparte de la creación de un constructor virtual,
útil para la generación de nuevos componentes (de hecho, todos los de la VCL tienen relacióncon él), va a permitir a cada uno que creemos nuevo, conocer lo esencial para compartir la
paleta a nivel de igualdad con los restantes componentes. Si con TObject se inicia la jerarquía,
TPersistent nos proporciona métodos utilizables, del tipo Assign() o similares, Tcomponent va a
enseñar a "los nuevos" a comportarse como tales.
Uno de los herederos de éste es el que ahora tratamos.

La variableApplication.
Si observamos la creación de TApplication, la primera variable global que se crea es
precisamente Application;
TApplication = class(TComponent)
Private
...
Public
...
{ Global objects }
var

1

El Rinconcito de Delphi

Delphi en sus orígenes

Application: TApplication;
Screen: TScreen;
HintWindowClass: Thin
...

y a través de esta utilizaremos las propiedades y los métodos de laclase. Por lo tanto
cuando estamos en ejecución, nos referimos a la variable.
¿Qué nos ofrece? Un conjunto de propiedades y eventos sin los cuales nos sería imposible
trabajar, salvo con la directiva {$APPTYPE CONSOLE}, con lo que estaríamos en una aplicación de
consola, sin ventanas.
Y entonces ¿las aplicaciones de Servicio?. Pues tienen Application como variable, pero será
del tipoTserviceApplication:
TServiceApplication = class(TComponent)
...
var
Application: TServiceApplication = nil;

Por lo tanto, la interfaz de usuario en Delphi parte de las tres clases fundamentales en este
sentido, Tapplication, Tscreen y Tform. Las dos últimas las veremos más adelante. En el caso en
el que ahora nos encontramos, la mayor parte de sus propiedades no deberíamos ni tocarlas, el
comportamiento de laaplicación con relación al Sistema Operativo Windows va a depender de
ella. No obstante, otras pueden sernos de mucha utilidad. Vamos a ver las más usuales.

Propiedades.
Las propiedades de la clase, las podemos observar en la Unidad Forms.pas que se encuentra
en Source - VCL. Aquí vamos a hacer un pequeño repaso a las que utilidad con mayor
asiduidad.
Property ExeName: string read GetExeName;...