Discussion :

[franckcl]

Bonjour,

J'ai surchargé la fonction WndProc et je reçois des codes que je ne trouve pas dans Winapi.Messages

Exemple Msg contient 45108 ($B034)
Où peut-on trouver la signification de de ces messages ?

merci

[ShaiLeTroll]

0x8000 à 0xBFFF c'est les messages internes à l'application
cherche donc WM_APP + $3034
Cela me semblerait bizarre mais ça peut être aussi WM_USER + $7034 puisque de 0x0400 à 0x7FFF c'est aussi des messages internes

Je pense que c'est CM_SHOWHINTCHANGED (+34) puisque Vcl.Controls.CM_BASE = $B000

[Paul TOTH]

les message $B0xx c'est CM_BASE + $xx, ici CM_INVALIDATE = CM_BASE + 52;

c'est un message interne à Delphi pour propager Invalide

[ShaiLeTroll]

Oups, je me suis fait avoir par le non-hexa du CM_BASE + ... du coup c'est plutôt CM_INVALIDATE comme indiqué par Paul

[franckcl]

ha super, merci.
Je m'étais limité à l'unité Winapi.messages... alors qu'il y a aussi des messages VCL dans vcl.controls.

Existerait-il un moyen d'afficher le nom du message ? une fonction qui permettrait de faire ça ? afin d'éviter de calculer l'offset (ex: CM_BASE) et de chercher dans les fichiers

[ShaiLeTroll]

Cela doit se trouver des fonctions MsgToString mais elles seront forcément incomplètes puisqu'il faut faire manuellement un recensement des messages

Voir le TColor et Vcl.Graphics.ColorToIdent, les couleurs nommées sont toutes recensées dans un tableau

[Paul TOTH]

je viens de publier une unité que je mets à jours de temps à autre

https://github.com/tothpaul/MessageNames

[franckcl]

Merci Paul !
J'ai rajouté cette unité à mon projet.
Je vais pouvoir trouver quel est le message qui freeze l'appli quelques secondes.

[Andnotor]

Et en complément, il est possible de récupérer le nom des messages définis par RegisterWindowMessage (messages entre $C000 et $FFFF) en scrutant la table atomique.

Ces messages partagent la même table que les formats du presse-papier, on utilise une fonction relative à ce dernier :

Code :

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

1
2
3
4
5
function GetRegisteredWindowMessageName(aMsg :integer) :string;
begin
  SetLength(Result, 100);
  SetLength(Result, GetClipboardFormatName(aMsg, PChar(Result), Length(Result)));
end;