PageControl ActiveIndex inopérant

Version imprimable

12/02/2013, 10h55
JP.NUAGE

PageControl ActiveIndex inopérant

:salut: Bonjour à tous

Je me bats depuis 3 jours avec un PageControl.ActiveIndex qui refuse de fonctionner. Voici l'environnement

Une forme A appelle une forme B
La forme A peut appeler la forme B de 2 manières :
soit pour ajouter des enregistrements dans une table
soit pour modifier un enregistrement de cette table

Il y a donc deux boutons : Ajout et Modification

La forme B contient un PageControl avec 3 Tabsheet
A chaque appel de la forme B, je force son Pagecontrol1.Activeindex à 0

J'appelle la forme B par le bouton Ajout --> j'arrive sur le TabSheet 0
Je ferme la forme B et reviens sur A
J'appelle la forme B par le bouton Modifier --> j'arrive sur le TabSheet 0
Je ferme la forme B et reviens sur A

J'appelle la forme B Par le bouton Ajout, et lorsque je suis sur le Tabsheet 0, je clique sur le Tabsheet 1
Je ferme la forme B et reviens sur A
J'appelle la forme B par le bouton Modifier --> j'arrive sur le TabSheet 3

J'ai vérifié que, à chaque appel de la forme B je passais bien par fromCreate et c'est dans le formCreate que je force PageControl1.activeindex = 0

J'ai mis deux TEdit qui contiennent l'un l'index de page dans le FormCreate et l'autre l'index de page dans le FormShow. Tous deux affichent 0, même lorsque c'est le Tabsheet 3 qui est visible.

Si je mets un point d'arrêt dans le FormCreate, j'arrive toujours sur le Tabsheet 0 lorsque j'appelle la forme B par le bouton Modifier. Dès que j'enlève le point d'arrêt, :massacre: c'est le TabSheet trois qui s'affiche !

L'inverse est aussi vrai. Si je commence par appeler la forme B par le bouton Modifier, que je clique sur le Tabshheet 3 et que j'en sors, je vais arriver sur le tabsheet 3 lors de l'appel par le bouton Ajouter.

Avec toujours les deux Tedit contenant la valeur zéro

:mur: et cela commence à faire mal au front !
12/02/2013, 11h46
ShaiLeTroll

En C++Builder, j'ai eu un phénomène similaire sur les valeurs surchargées entre des TForm héritées
Je n'aime pas spécialement l'héritage de DFM mais où je travaille, je dois maintenir des TFrame et héritage de TForm à foison.

Le constructeur du TForm fourni les valeurs d'origine de la TFrame puis elles étaient modifiées (comme si le chargement de la DFM héritée était fait après, j'avoue que j'ignore totalement comment fonctionne les DFM héritées, je vois pour la DFM première mais pas pour les inherited)

J'ai des soucis sur des Enabled différent mais aussi sur un TPageControl, la structure d'une série de fenêtre similaire est TForm > TFrame > TPageControl > TTabSheet > TFrame
J'ai eu des soucis, si je changerais dans la TForm l'onglet actif fourni par la TFrame, comme je remettais la bonne valeur, c'est comme si le Setter détectait que la valeur était la même, il ne l'a réaffecte pas, et c'était la foire, du coup, j'y touche le moins possible

En C++, comme le constructeur doit être explicite pour passer AOwner, j'utilise plus du tout OnCreate

Normalement le FormCreate se produit bien après le constructeur (voir si OldCreateOrder est bien à false), il faudrait vérifier si c'est durant le Loaded ou durant le AfterConstruction

Avant en D3, on bidouillait avec le FormActivate pour que les valeurs en cours soient bien les bonnes issues de la DFM
12/02/2013, 13h40
BuzzLeclaire

Salut JP.NUAGE,

Je suppose que tu n'as aucun évement dans les Ttabsheets ainsi que dans ton TPageControl qui initialiserait quelque chose...

Sinon as-tu essayé dans ton Create de passer par PageControl1.Pages[x].Show; plutot que activepageindex ?

bye

mmm ... étrange, j'ai ce genre de chose dans quelques outils et pas de problème particulier pour la sélection de la page.

par contre j'appel les form filles avec une fonction Execute (comme les TDialog) qui contient tout la chaine d'instruction pour afficher la fiche :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function TDlgFrmIgnition.Execute: boolean;
with TIniFile.Create(changeFileExt(ParamStr(0), '.ini')) do
  try
    Tools.PrintServer := readString('CONFIG', 'printserver', 'http://***/cgi-bin/eplprint.cgi?');
    Tools.PlaceFile   := readString('CONFIG', 'placefile', 'http://***/vt/modules/places/upload/PLACE.csv');
  finally
    Free;
  end;
 
  fNextPlace := DEFAULT_PLACE;
  PageControl.ActivePageIndex := 0;
 
  CSVSearch             := TCSVSearch.Create(LstSearchResults.Items, #0, ';');
  CSVScans              := TCSVScans.Create(LstScansResults.Items, #0, ';');
  CSVMoves              := TCSVMoves.Create(LstMovesResults.Items, #0, ';');
  CSVBackorders         := TCSVBackorders.Create(LstBackorders.Items, #0, ';');
  CSVUnlockedBackorders := TCSVBackorders.Create(LstUnlockedBackorders.Items, #0, ';');

et dans une autre :

Code:

1
2
3
4
5
6
7
function TDlgCatSelector.Execute: boolean;
begin
  PCCatalog.ActivePageIndex := 0;
  BringToFront;
  result := ShowModal = mrOk;
  getAllIds;
end;

12/02/2013, 14h42
JP.NUAGE

Pour répondre à BuzzLeclair : je viens de tester ta proposition et cela ne change rien. Et non, je n'ai pas d'évènement, ni dans PageControl ni dans TabSheet. En revanche, l'active control de la forme B est DANS le Tabsheet 0....et je rajoute même un SetFocus. Pour rester poli, il n'en a rien à f...... Et il me demande gentiment d'aller là haut siffler sur la colline avec un petit bouquet d'églantine (Joe Dassin)

Et mon code ressemble furieusement au deuxième exemple de Dr.Who
12/02/2013, 15h30
Rayek

Un bout de code de l'appel de la FormB serait un plus non négligeable, cela pourrait donner des pistes pour voir d'où vient le problème.

A tout hasard, ta FormB est-elle dans les fiches disponibles ou créées automatiquement (dans les options du projet/fiches) ?
12/02/2013, 18h46
Dr.Who

Comment ferme tu form B ?

avec hidde ou close ?
13/02/2013, 17h24
JP.NUAGE

Alors, comme tous les essais étaient infructueux, j'ai pris le marteau pilon !

J'ai sorti la forme B du projet, renommé tous les modules B en B1.
J'ai créé une nouvelle forme B dans laquelle j'ai recopié, à partir de B1, tous les composants, puis tout le code, sans modifier quoi que ce soit..... et tout fonctionne parfaitement !

Mystère insondable de l'informatique :mrgreen: (vas comprendre Charles !)

Et je remercie tous ceux qui ont bien voulu se pencher sur ce cas !
13/02/2013, 19h38
BuzzLeclaire

Citation:

Envoyé par JP.NUAGE

Alors, comme tous les essais étaient infructueux, j'ai pris le marteau pilon !

J'ai sorti la forme B du projet, renommé tous les modules B en B1.
J'ai créé une nouvelle forme B dans laquelle j'ai recopié, à partir de B1, tous les composants, puis tout le code, sans modifier quoi que ce soit..... et tout fonctionne parfaitement !

Mystère insondable de l'informatique :mrgreen: (vas comprendre Charles !)

Et je remercie tous ceux qui ont bien voulu se pencher sur ce cas !

Donc problème de DFM...