Delphi: temps approprié pour sous-classer, et restaurer, un contrôle?

Question

Quel est le bon moment pour démarrer le sous-classement d'un contrôle?

Quel est le bon moment pour restaurer le processus de fenêtre d'origine?

En ce moment, je sous-classe pendant la forme création:

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    FOldPanel1WindowProc := Panel1.WindowProc; 
    Panel1.WindowProc := Panel1WindowProc; 
end; 

et je ramènerai le sous-classement lors de la destruction sous forme :

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
    Panel1.WindowProc := FOldPanel1WindowProc; 
end; 

Cela fonctionne bien, aussi longtemps que je ne suis pas utilisez ThemeManager, qui sous-classe les contrôles lui-même. Dès que vous essayez de sous-classer un contrôle que ThemeManager sous-classe également, je reçois des erreurs très méchant.

je suppose qu'il est dommage parce que je ne devrais pas commencer à la sous-classe pendant Créer et restaurer pendant Destroy. Alors, quel est le temps correctement documenté pour sous-classer et annuler la sous-classe d'un contrôle dans Delphi?

Answer 1

La question n'est pas claire, mais je suppose que vous obtenez les erreurs lorsque vous essayez de restaurer l'ancienne procédure de fenêtre dans le gestionnaire d'événement OnDestroy du formulaire. La classe

ThemeManager rétablit sa sous-classe lors du traitement WM_DESTROY pour un contrôle. Par conséquent vous devez probablement faire la même chose: observez WM_DESTROY dans votre nouvelle procédure de fenêtre et retournez d'abord votre sous-classe, puis appelez l'ancienne procédure de fenêtre (et laissez ThemeManager faire la même chose).

Je n'ai pas testé cela mais je pense que cela devrait fonctionner.