Override Form.Show ?

**Amuny** · 13/04/2010, 21h14

Bonjour à tous,

Je travaille actuellement sur une application assez grosses (plusieurs centaines de form), et je dois implanter un petit bout de code d'a peine quelque lignes dans le form.show, une histoire d'ajustement d'écran, bref, là n'est pas le problème.

Évidemment, au nombre de form présente... j'ai pas très envie de toutes les faire à coup de copier-coller... et comme programmeur je me doute qu'il y a un moyen beaucoup plus efficace de le faire!

Cependant je cherche, je fouille, j'essaie, j'échoue des compilations, mais je n'arrive pas a trouvé un moyen d'appliquer mon petit bout de code a chaque fois qu'un Form.Show s'effectue dans l'application. J'ai pensé a overloadé la méthode, mais je n'arrive pas plus a mes fins

Es-ce que quelqu'un a une idée, ou mieux à déjà effectuer une opération du genre et aurait la bienveillance de partager ses connaissances?

Sincèrement,
Amuny

**tourlourou** · 14/04/2010, 12h44

un petit code qui les énumèrerait pour faire pointer leur OnShow sur une procédure unique ?

à condition qu'il n'y ait rien de spécifique dans le OnShow de ces fiches

**exoseven** · 14/04/2010, 13h14

tu peux peut-être mettre ton code dans Screen.OnActiveFormChange l'évenement est déclenché à l'activation d'une fiche

**Amuny** · 14/04/2010, 14h41

Envoyé par tourlourou

un petit code qui les énumèrerait pour faire pointer leur OnShow sur une procédure unique ?

à condition qu'il n'y ait rien de spécifique dans le OnShow de ces fiches

Ça fait parti de ma problématique effectivement!

Envoyé par exoseven

tu peux peut-être mettre ton code dans Screen.OnActiveFormChange l'évenement est déclenché à l'activation d'une fiche

Je commence a fouiller dans cet optique, mais comment pourrai-je l'affecter a toute les forms d'un seul coup?

**exoseven** · 14/04/2010, 14h59

tu n'as pas besoin de l'assigner à toute tes formes, lors de l'ouverture de ton programme tu fais

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
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
 Screen.OnActiveFormChange := OnChangeForm;
 ...
end;
 
procedure TMainForm.OnChangeForm(Sender: TObject);
begin
 
 // Screen.ActiveForm contient la forme active
 
 // ici ton code pour modifier tes formes
 
end;

**Amuny** · 14/04/2010, 15h31

Le projet blabla.exe a déclanché la classe d'exception EInvalidOperation avec le message "Impossible de focaliser une fenêtre désactivée ou invisible"

Continuer...

Le projet blabla.exe a déclanché la classe d'exception EInvalidPointer avec le message "Invalid Pointer Operation"

Continuer...
Crash.

avec ce code:

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
procedure TMainForm.Resizing (Sender:TObject);
var
aForm : TForm;
begin
  aForm := Screen.ActiveForm;
  if (Screen.Width/Screen.Height) = (16/10) then
  begin
    //aForm.Nimportequoi
  end;
[...]
end;
 
procedure TMainForm.FormCreate(Sender: TObject);
begin
Screen.OnActiveFormChange := Resizing;
[...]
end;

j'essaie de faire n'importe quel traitement des plus anodins (Show, Close, SendToBack... juste pour tester), mais dès que j'essaie de faire quoique ce sois sur le aForm(donc la form active), les messages du haut apparaissent et le programme ne démarre pas

Je continue a faire des essais et recherches activement

**exoseven** · 14/04/2010, 15h38

avant pense à tester si screen.ActiveForm n'est pas à nil ce qui peut arriver

**Amuny** · 14/04/2010, 15h43

oups

du coup ca fonctionne mieux

Merci beaucoup pour toute l'aide!

**Amuny** · 14/04/2010, 16h14

Reoups, crier victoire trop rapidement!

En fait la la réaction donne ca:
Dès que j'ouvre ou ferme une form, c'est la form principale qui est toujours affectée

Edit: Apparemment, le OnActiveFormChange ne prend pas en compte le Form.Show mais lorsque je ferme la Form, oui. Donc j'affiche une form autre que la principale: Rien. Je la referme: Traite la forme active, en l'occurrence la main. Donc je me retrouve a faire mon traitement en boucle que sur la form principale dès que je referme une autre form du projet.

Edit2: Oubliez ca... c'est le ScaleBy apparemment qu'il aime pas. J'ai fait la même chose avec un form Color et ca fonctionne bien... je retourne a mes besognes

**Andnotor** · 14/04/2010, 17h36

personnellement, je créerais une fiche de base qui implémenterait le OnShow et modifierais toutes les fiches pour qu'elles en héritent. Même s'il y a 100 fiches à modifier, ça devrait être fait assez rapidement. (C'est du copier/coller)

Ajout de la nouvelle unité dans uses.
Modification de la classe de base de la fiche.
Ajout de inherited dans OnShow si l'événement est déjà implémenté.
Remplacement du mot object par inherited dans le dfm.

**Andnotor** · 14/04/2010, 17h49

Une autre approche plus rapide: redéclarer TForm dans une nouvelle unité et surcharger DoShow.

Tu n'as plus qu'à ajouter cette nouvelle unité dans les uses. (Obligatoirement après Forms)

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
unit FormsEx;
 
interface
 
uses Math, Forms;
 
type
  TForm = class(Forms.TForm)
  protected
    procedure DoShow; override;
  end;
 
implementation
 
{ TForm }
 
procedure TForm.DoShow;
begin
  inherited;
 
  if SameValue(Screen.Width/Screen.Height, 16/10, 0.001) then
  begin
    //N'importe quoi
  end;
end;
 
end.

**Cl@udius** · 14/04/2010, 17h52

Et pourquoi pas surcharger le DoShow en définissant une classe comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
type
  TForm = class(Forms.TForm)
  protected 
    procedure DoShow; override;
  end;
 
implementation
 
procedure TForm.DoShow;
begin
  // Le code à insérer...
  inherited  DoShow;
end;

Il suffit ensuite d'inclure cette unité dans les uses, après Forms bien entendu.
Astuce classique pour accéder aux méthodes et propriétés protected.

[Edit]
Grilled ! Je me disais aussi.

@+