Discussion :

[SurfingJeff]

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...

[edam]

change la proprité windowsstate des form en wsMaximized, non???

[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

[Bleys]

Tiens regarde jette un oeil ici :
Parcourir toutes les Forms d'une application

[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 ?

[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.

[edam]

ou crée un composant non visuelle

[Bleys]

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

[SurfingJeff]

Peut on surcharger la methode CreateForm de TApplication ?

[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.

[SurfingJeff]

Oui mais dans ce cas il faudra le faire dans chaque Form et c'est ce que je veux éviter...

[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

[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 ?

[SurfingJeff]

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 :

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
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;

[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 :

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

1
2
 
Constructor Create(Owner: TObject);

En Implementation:

Code :

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

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;