Discussion :

[Pedro]

Salut à tous
Dans un composant de mon cru (un PageControl), je surcharge WndProc.
Dans celle-ci, j'intercepte la création et la destruction de page...
Pour la création pas de problème, ça marche
Par contre, pour la destruction, j'aimerais faire une méthode CloseQuery comme pour les fiches MDI...
J'ai donc tout mis en place mais je bloque sur quelque chose:
dans WndProc, pour TC_DELETEITEM (effacement de page), je lance d'abord DoPageCloseQuery qui est une de mes fonctions définie comme suit:

Code :

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

1
2
 
procedure TMachin.DoClosePageQuery(var CanClose:boolean);

Vous l'aurez compris, le CanClose sert à savoir si oui ou non, la page peut être affacée...
Or si j'ai CanClose à false, je ne sais pas comment faire pour inhiber le message d'effacement de la page...
J'ai essayé Mesg.Result:=-1 mais ça ne fait rien...
Si quelqu'un a une idée...

[Clorish]

Dans ton titre tu parles de wndproc.

C'est effectivement la boucle de gestion des messages.

J'ai entendu dire que si on capte un message, on doit le relancer sinon il est perdu (un peut comme les exceptions)

Donc si tu surcharge WndProc et que tu traite le message et ensuite un inherited devrais marcher .. ou bien declarer une procedure qui repond au message WM_XXX

[Pedro]

Oui d'accord mais comment inhiber ce message?
Je veux pouvoir dire "Oui traite ce message et supprime la page" ou "Non ne traite pas ce message et laisse la page"...

[edam]

qui donne l'ordre de déstruction de la page???

[Pedro]

Ben l'utilisateur lorsqu'il dit:

PageControlEx.Pages[i].Destroy;

Mais comme je voudrais faire un composant réutilisable, je voudrais que la détection soit automatique...

[Pedro]

ou bien declarer une procedure qui repond au message WM_XXX

Ca j'y avait pas pensé... Quel talent ce Clorish

[edam]

ou surcharge la procedure Destroy la tu peut faire ton teste ou meme envoyé un message personalisé comme CloseQuery qui selon sa réponse tu réagie

[Pedro]

Non je ne peux pas faire comme ça parce que c'est le Destroy du PageControl et non du TabSheet... Et je suis obligé de garder les TTabSheet tels quels sinon je ne pourrais plus les utiliser dans mon PageControl...
J'arrive à intercepter la suppression d'une Page (TCM_DELETEITEM) mais pas à lui dire "Non, ne la supprime pas même si tu as reçu ce message"...

[edam]

Ben l'utilisateur lorsqu'il dit:

PageControlEx.Pages[i].Destroy;

il y as surment une destoy quelque part pour l'aplé comme sa ,,Non??
ou j'ai raté quelque chose

[Pedro]

Oui il y en a un mais il n'est pas surchargeable... Sinon c'est trop facile

[edam]

dans l'aide de delphi

Détruit une instance de TTabSheet.

destructor Destroy; override;

Description

N'appelez pas Destroy directement à l'exécution. Appelez plutôt Free. Free vérifie que la feuille à onglet n'a pas la valeur nil avant d'appeler Destroy. Destroy retire la feuille à onglet du contrôle pages puis appelle la méthode héritée Destroy.

alors cache destroy et free a l'utilisateur ,
crée une autre procedure comme delete qui dans celle si tu apel free
comme sa tu peut faire tes testes et meme envoyé un message comme qoi il va se détruire(oui ou non)

[Pedro]

Oui je sais bien tout ça mais le problème c'est que je ne peux pas faire ça.
Je m'explique:
Si je fais comme ça, je dois créer un nouvel objet dérivé de TTabSheet. Or TPageControl n'accepte que des TTabSheet... Donc je ne peux pas le faire... A moins qu'il y ait une méthode que je ne connaisse pas (ce qui ne m'étonnerais guère )...

[edam]

la source donnée par borland n'est pas pour regardé seulement

[Reisubar]

la source donnée par borland n'est pas pour regardé seulement

Ca se discute. Modifier la VCL pour en faire sa version est plus source de problèmes qu'apporteur de solutions (portabilité, compatibilités avec les versions suivantes...). Modifier la VCL, pour moi, c'est franchement une option crade.

[edam]

pas le source mais une copie
en créant TPagePedro204

[edam]

tu as déjà:
http://www.developpez.net/forums/viewtopic.php?t=338428
alors pourqoi tu as changer de sujet??? ou qoi

[Clorish]

Non je ne peux pas faire comme ça parce que c'est le Destroy du PageControl et non du TabSheet... Et je suis obligé de garder les TTabSheet tels quels sinon je ne pourrais plus les utiliser dans mon PageControl...

Pourquoi ca ?
C'est le principe de l'heritage des classes ....
Tu peut creer un descendant de TTabSheet que tu nome TTabsheetEX avec ton destructeur surchargé.

Tu les crees et tu peut les enregistrer dans un PAge control .... puisqu'il heritent de TTabSheet.
Seulement a partir de ton pagecontrol tu ne peut les manipuler que sous la forme de TTabSheet mais pas genant puisque tu ne rajoute pas de methdoes explicitement appeles mais que des surcherges Et meme si cela te gene, tu pourra toujours caster tes TtabSheet en TTabSheetEX apres un test :

Code :

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

1
2
 
If TabSheet.InheritsFrom(TTabsheetEX) Then TTabSheetEX(TabSheet).MaProcTabSheetEX;

[Pedro]

Salut et merci pour les réponses

la source donnée par borland n'est pas pour regardé seulement

Je suis entièrement d'accord avec Reisubar... Je m'interdit de modifier quoi que ce soit la-dedans...

tu as déjà:
http://www.developpez.net/forums/viewtopic.php?t=338428
alors pourqoi tu as changer de sujet??? ou qoi

Parce que c'est pas tout à fait le même sujet... Ca porte sur un TPedroPageControl (et pas TPagePedro204 ) mais pas sur le même problème... Comme les problèmes étaient différents, j'ai préféré faire un autre post...

Et meme si cela te gene, tu pourra toujours caster tes TtabSheet en TTabSheetEX apres un test

Oui je sais mais je voudrais que l'utilisateur du composant n'aie pas à s'occuper de quoi que ce soit... Si je fais comme tu dis, à chaque fois que l'utilisateur du composant récupère un TTabSheet, il devra caster et ça, je ne veux pas...
Oui mais

[edam]

pas le source mais une copie
en créant TPagePedro204

[Pedro]

Je sais j'y ai pensé aussi mais il faudrait alors que je parte de TCustomTabControl...
Ca commence à faire beaucoup! Il faudrait que je "convertisse" TCustomTabControl, TPageControl et TTabSheet... Surtout dans un code que je ne comprends pas trop la plupart du temps...
J'ai donc écarté assez vite cette solution...