Bonjour,
au plus ça va au moins je comprends...
J'ai une TForm, qui embarque une TFrame, et dans celle-ci j'insère un TPanel alClient, jusque là rien que du classique.
Dans ce TPanel je pose un TPageControl et à coups de clic-droit je lui ajoute 2 TTabSheets. Normalement, là, je devrais pouvoir faire F9 et jouer avec les onglets pour voir si ça bascule de l'un à l'autre mais déjà, ça ne bascule pas...
J'ai activé l'option du TPageControl nboDoChangeOnSetIndex (kess ça veut dire, nbo ?), j'ai tenté d'y voir clair à coups de ShowMessage dans pcChange et pcChanging (pc c'est le PageControl), mais rien de chez rien.
Sauf ce gag : si je mets "1" à la place de "0" à l'option TabIndex du PageControl dans l'EDI, tout fonctionne as expected. Et pour ne pas mourir fou, je remets "0" à la place de "1" et non, je ne suis pas fou, rien ne fonctionne plus.
Pensant ruser, j'ai remis "1" dans l'EDI et pc.ActivePageIndex:=0; dans FrameCreate; et ça fonctionne. 1 fois, et après plus, fini.
En résumé, il suffit d'avoir "1" dans TabIndex de l'EDI pour que tout fonctionne. Mais je ne veux pas que l'ihm s'ouvre sur ce TabSheet !
Je ne sais plus quoi faire à part sacrifier un poulet après-demain (pleine Lune).
Une idée pour sauver cette pauvre bête, étant entendu que les recherches sur le web ne mènent à rien ?
Merci pour elle,
Partager