Discussion :

[Jipété]

Bonjour,

Ma question est assez générique mais comme je code en Pascal les exemples seront dans ce langage, je pense qu'il est assez compréhensible, j'espère que vous ne m'en voudrez pas.

Ayant fait des recherches récemment, je suis tombé sur des bouts de code qui, pour moi, ont un fonctionnement opposé, je dirais, alors si une âme charitable pouvait éclaircir cette histoire, ça m'arrangerait.

Concernant la gestion des messages, j'ai trouvé

Code pascal :

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

1
2
3
4
5
6
7
procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
  //
  // gestion de mes messages
  if Msg = WM_...
end;

mais j'ai aussi trouvé

Code pascal :

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

1
2
3
4
5
6
7
procedure TForm1.WndProc(var Msg: TMessage);
begin
  // gestion de mes messages
  if Msg = WM_...
  //
  inherited; // important to forward messages to default handlers
end;

Quelle est l'approche juste concernant la position en début ou fin de proc de cet inherited ?

Question subsidiaire : ces exemples sont basés sur l'utilisation de WndProc, mais on en trouve aussi beaucoup basés sur procedure TForm1.DefaultHandler(var Msg);
Ce cours présente un joli croquis qui, pour moi, explique mal ou pas assez, toujours est-il que je ne sais pas exactement ce que je dois utiliser.

Dernière question : j'ai besoin de mettre en place une gestion perso de messages basés sur WM_USER+x
Faut-il que j'aille interférer avec la gestion système et tri dedans comme avec les deux exemples précédents, ou puis-je mettre en place un truc perso genre

Code pascal :

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

1
2
3
4
5
6
7
procedure TForm1.RecupMessagesPerso(var Msg);
begin
  // gestion de mes messages
  if Msg = WM_...
  //
  // inherited; // plus besoin de ça ?
end;

Merci de vos lumières,

[Médinoc]

Franchement je n'ai pas l'habitude du subclassing de fenêtres, où la nécessité se présente d'appeler la fonction parente avant ou après avoir traité les messages. Dans les fenêtres habituelles, on n'appelle la fonction par défaut que pour les messages qu'on ne traite pas soi-même, ce qui donnerait un truc de ce genre:

Code pascal :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.WndProc(var Msg: TMessage);
begin
  // gestion de mes messages
  if Msg = WM_...
  else if Msg = WM_...
  else if Msg = WM_...
  //
  else 
    inherited;
end;

D'une manière plus générale, on peut dire que ça dépend des messages. Pour certains (par exemple, ceux d'initialisation) on peut avoir intérêt à appeler le parent d'abord (comme c'est le cas dans les constructeurs), alors que pour des messages de fin de vie ce sera l'inverse. On peut même imaginer certaines overrides nécessitant un traitement avant et après...

Résultat, on aurait plutôt quelque chose de ce type (je préviens, je ne connais pas le pascal):

Code pseudo-pascal :

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 TForm1.WndProc(var Msg: TMessage);
begin
  booleanOrWhatever bIntercept = false;

  // gestion de mes messages (préfixe)
  if Msg = WM_...
  else if Msg = WM_...
  else if Msg = WM_...
  //
  if not bIntercept
   inherited;

  // gestion de mes messages (postfixe)
  if Msg = WM_...
  else if Msg = WM_...
  else if Msg = WM_...
end;

[Jipété]

Bonjour,

et merci de ton retour.

Pour ne rien te cacher, ne voyant rien venir ici j'ai crossposté dans le forum Delphi où je sais qu'il y a des pointures "système" et où j'ai eu plus de retours.

Maintenant, pour quelqu'un qui ne connait pas le Pascal, je trouve que tu t'en débrouilles bien, , juste un truc (d'après un posteur Delphi) : il serait mieux d'utiliser une construction à base de case of plutôt que de if ... then ... else if ..., je crois que l'équivalent en C c'est switch();

[Médinoc]

juste un truc (d'après un posteur Delphi) : il serait mieux d'utiliser une construction à base de case of plutôt que de if ... then ... else if ..., je crois que l'équivalent en C c'est switch();

En effet, et en C j'aurais effectivement utilisé un switch(), mais je ne connaissais pas la syntaxe équivalente en Pascal.