Intercepter Application.CreateForm ou équivalent

Version imprimable

28/01/2007, 14h24
SurfingJeff

Intercepter Application.CreateForm ou équivalent

Afin de redimensionner automatiquement toutes les Fiches (Forms) de mon projet à la résolution de l'écran, je voudrais savoir si il est possible d'intercepter l'évènement "oncreate" des fiches de manière "globale" pour y réaliser le traitement de mise à l'echelle (avec "scaleby") ?
En fait le but, vous l'aurez compris, c'est déviter de mettre dans chaque "oncreate" de chaque fiche (soit + de 100 fiches !)la méthode de mise à l'echelle...:roll:
28/01/2007, 17h10
edam

change la proprité windowsstate des form en wsMaximized, non??? :?
28/01/2007, 17h24
Bleys

Salut,

Sinon tu ne peux pas faire un parcours de toutes tes forms au moment de la création de ton application et tu fais ton redimensionnement à ce moment la ?
Comme ça tu ne fais en code qu'une fois le redimensionnement nécessaire mais appliqué à toutes tes forms ...

Jette un oeil à un psot un peu plus bas que le tiens, tu y trouveras peut-être ton bonheur ;)
28/01/2007, 17h26
Bleys

Tiens regarde jette un oeil ici :
Parcourir toutes les Forms d'une application
28/01/2007, 17h55
SurfingJeff

Mes fiches sont concues en 800 x 600 par défaut.
J'ai une méthode qui permet de redimensionner les fiches pour que visuellement les controles (boite de saisies, les polices,etc) gardent la même taille même si on est en résolution 1280 x 1024 par exemple. (maximized est forcé par défaut)
En fait toutes les fiches du projet sont créées dynamiquement, lorsque l'utilisateur clique sur une rubrique du menu ou sur un bouton d'une fiche qui affiche une boite de dialogue... Il ne me semble pas pertinent qu'à chaque fois qu'une fiche doit être affichée de parcourir la liste pour effectuer le redimensionnment.
Alors peut on surcharger la méthode CreateForm, pour que lors de la création de la fiche ma méthode de redimensionnement s'exécute à chaque fois ?
28/01/2007, 18h03
neilbgr

Tu peux aussi faire de l'héritage de form.
Ainsi, ta form ancêtre prend en charge le redimensionnement sur le FormCreate, puis toutes les forms hérite de l'ancêtre.
Il faut donc chercher autour de l'héritage de form.
28/01/2007, 18h10
edam

ou crée un composant non visuelle
28/01/2007, 18h55
Bleys

Citation:

En fait toutes les fiches du projet sont créées dynamiquement, lorsque l'utilisateur clique sur une rubrique du menu ou sur un bouton d'une fiche qui affiche une boite de dialogue... Il ne me semble pas pertinent qu'à chaque fois qu'une fiche doit être affichée de parcourir la liste pour effectuer le redimensionnment.

Je suis tout à fait d'accord mais je ne savais pas que la création était dynamique ...

Vois alors avec ce qui t'as était dit ;)
28/01/2007, 19h00
SurfingJeff

Peut on surcharger la methode CreateForm de TApplication ?
29/01/2007, 13h54
Tardiff Jean-François

Bonjour,

Je pense que vous pouvez définir un constructeur dans un TForm (le classique constructor Create(AOwner: TComponent);). Ceci dis pourquoi ne pas utiliser le OnCreate. c'est comme si vous appelier une procédure apres le inherited d'un constructeur.
29/01/2007, 17h25
SurfingJeff

Oui mais dans ce cas il faudra le faire dans chaque Form et c'est ce que je veux éviter...
29/01/2007, 17h36
Tardiff Jean-François

Dans ce cas vous devez faire une forme de base contenant votre traitement, puis vous créer toutes vos formes en vous servant de cette forme de base comme source.

C'est tous bêtement le principe des composants.

TMyForm = Class(TForm)

Tmyform contoient le traitememnt standard.

puis
TForm1 = Class(TMyForm)
TForm2 = Class(TMyForm)
TForm3 = Class(TMyForm)
etc..

Il y à eut un message indiquant comment faie la semaine dernière
29/01/2007, 17h37
SurfingJeff

J'ai regardé du coté de la gestion des messages Windows avec la fonction WndProc mais je n'arrive pas à intercepter la création des fiches (WM_CREATE)...quelqu'un a t-il un petit exemple sous la main ?

Voila le code que j'utilise pour intercepter la création des fiches, cela fonctionne pour la fiche principale mais pas pour les autres :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    Fichier1: TMenuItem;
    Fiche11: TMenuItem;
    procedure Fiche11Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure WndProc(var Msg: TMessage); override;
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
Uses Unit1;
 
procedure TMainForm.WndProc(var Msg: TMessage);
begin
  inherited;
  if Msg.Msg = WM_CREATE then
  begin
    ShowMessage('Create !');
  end;
 
end;

29/01/2007, 20h03
Tardiff Jean-François
Si vous tenez impérativement à intercepter les créations vous pouvez utiliser un creator. Je pense que cela devrait fonctionner.

Je n'ai pas Delphi içi mais de tête cela devrait être quelque chose de ce genre:

En Public:
Code:

1 2 Constructor Create(Owner: TObject);
En Implementation:
Code:

1 2 3 4 5 6 7 Constructor TMyForm.Create(Owner: TObject); Begin showMessage('Avant le constructeur'); Inherited; // constructeur puis évènement OnCreate ShowMessage('Apres le constructeur'); End;

Fuseau horaire GMT +2. Il est actuellement 16h24.