Discussion :

[ZZZzzz2]

Bonjour,

Voilà ma question, tout bête.

En regardant la VCL je m'aperçois que pour une application standard (Windows avec GUI) l'instance globale "Application" était créé dans l'unité "Controls" via un appel à "Application := TApplication.Create(nil);" dans la méthode "InitControls".
Oh désespoir cela réduirait-il à néant la possibilité de dériver "TApplication" pour par exemple créer des projets d'un type plus spécifique que "Application Windows avec GUI) directement depuis l'EDI Delphi et dont la variable globale ne serait pas de type "TApplication" mais "TXXXApplication" (comme pour les services ou composants du panneau de configuration) qui hériterait du "TApplication" défini dans "Forms".

Pour cela il aurait juste fallu que Borland déclare une variable globale dans "Controls" qui soit du type 'class of TApplication' et d'instancier "Application" avec... Hors Delphi 2009 ne semble pas inclure de variable de ce type.

Comment peut-on contourner cela ? Peut-être redéclarer un type dérivé de TApplication qui contienne l'instance globale "Application" en interne et qui redirige toutes les méthodes de base de TApplication en les appelant via "Application" ? Ya un moyen de faire ça propre et en assurant une compatibilité future (si jamais on ajoutait de nouvelles méthodes/propriétés à la classe "Application") ?

[ShaiLeTroll]

Si tu es en Delphi 2009, tu peux faire un ToolHelp non ? étendre une classe sans l'hériter !

[Kaféine]

je ne vois pas trop pourquoi c'est pas possible de dériver un TApplication?

l'objet TApplication est stocké dans un variable globale il me semble. il suffit de la remplacer par un dérivé. l'inconvenient c'est qu'il faut caster pour accéder au méthode de l'objet dérivé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
TMonApp = class(TApplication)
public
 function ForTest: string;
end;
 
function MonApp: TMonApp;
 
implementation
 
function MonApp: TMonApp;
begin
  Result := Application as TMonApp;
end;
 
function TMonApp.ForTest: string;
begin
  ShowMessage('Salut');
end;
 
initialization
   Application.Free;
   Application := TMonApp.Create(nil);

[ShaiLeTroll]

Tout à fait Kafëine, c'est juste un peu oser de faire le .Free !
Il faut être sûr que la section initialization de Controls a bien lieu AVANT celle de l'unité de TMonApp
Je pense qu'un mécansime comme la THintWindowClass aurait pu être valable avec une TApplicationClass ... et biensur en remplaçant dans le DPR, les "uses"

C'est un peu crado ce qu'ils ont fait pour TApplication, déclaré dans Forms, instanciés dans Controls ...

[Kaféine]

c'est juste un peu oser de faire le .Free !

oui c'est vrai. je supposais que l'initialization des uses de la unit était appelé avant le initialization de la unite les contenants, d'ailleurs ça à l'air d'être ce comportement si on regarde le code source du projet.

peut être que le compromis c'est d'instancier ce TMonApp dans le source du projet justement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
begin
  Application.Free; 
  Application := TMonApp.Create(nil);
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end.

[ShaiLeTroll]

Tout à fait, cela fait les clauses initialization des uses puis celle de l'unité en cours, cela fait une sorte de récursivité finalement ...

donc si tu mets "Controls" dans uMonApp, c'est normalement OK, non, ce qui me pose plus de problème c'est le Free\Create, voire si cela ne créé par des instances dans Window genre les Mutex et autre ...

[Paul TOTH]

Bonjour,

Voilà ma question, tout bête.

En regardant la VCL je m'aperçois que pour une application standard (Windows avec GUI) l'instance globale "Application" était créé dans l'unité "Controls" via un appel à "Application := TApplication.Create(nil);" dans la méthode "InitControls".
Oh désespoir cela réduirait-il à néant la possibilité de dériver "TApplication" pour par exemple créer des projets d'un type plus spécifique que "Application Windows avec GUI) directement depuis l'EDI Delphi et dont la variable globale ne serait pas de type "TApplication" mais "TXXXApplication" (comme pour les services ou composants du panneau de configuration) qui hériterait du "TApplication" défini dans "Forms".

Pour cela il aurait juste fallu que Borland déclare une variable globale dans "Controls" qui soit du type 'class of TApplication' et d'instancier "Application" avec... Hors Delphi 2009 ne semble pas inclure de variable de ce type.

Comment peut-on contourner cela ? Peut-être redéclarer un type dérivé de TApplication qui contienne l'instance globale "Application" en interne et qui redirige toutes les méthodes de base de TApplication en les appelant via "Application" ? Ya un moyen de faire ça propre et en assurant une compatibilité future (si jamais on ajoutait de nouvelles méthodes/propriétés à la classe "Application") ?

la question que je me pose est plutôt mais pourquoi donc voudrais-tu hériter de TApplication ?

J'ai décidé de le faire dans LVCL et RemoteVCL (sur mon site), mais en fait c'est toute la VCL (en fait non, juste un petit bout) qui est réécrite ^^