Onglet d'un TPageControl

salut ; je veux effectué un control avant de passé d'un onglet a un autre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure Tfsujtcontact.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if (pagecontrol1.ActivePageIndex=1) and(rbsuivitrt.Checked=true) or (rbmodifsuivit.Checked=true) or (eqt.Text<>'') or (eqt.Text<>'0') then begin if messagedlg('Terminer les actions...',mtConfirmation,[mbYes],1,)=mrYes then begin allowchange:=false; pagecontrol1.ActivePageIndex:=1; end; exit; end; end;

---

le code fonctionne et j'ai le message " Terminer les actions...." mais au lieu de resté sur l'onglet voulu , je passe vers l'onglet pagecontrol1.ActivePageIndex:=0;
:(
avec allowchange:=false; sa bloque ;
sans allowchange j'ai le message de contrôle mais les conditions ne sont pas vérifiés et je passe a l'onglet suivant

Salut

Tout d'abord quelques remarques sur ton code:

Un MessageDlg de confirmation avec un seul bouton mbYes. Ca ce n'est pas courant ! Tout utilisateur devant cette boite de dialogue va se demander si tu lui poses une question ou non. :koi:
Avec un seul bouton, en général on choisit un bouton OK (avec une icône d'information ou d'avertissement).

Ensuite, il n'est pas conseillé de modifier la valeur d'ActivePageIndex dans cet évènement, car le changement de page est déjà demandé. Tu dois juste t'occuper de la valeur de AllowChange, pour autoriser ce changement ou non.

Puis, cette condition:

Code:

---

(eqt.Text<>'') or (eqt.Text<>'0')

---

sera toujours vraie. :aie:

Et enfin, le Exit ne sert à rien. ;)

Donc en supposant que tu souhaites juste informer l'utilisateur que sa saisie est incomplète, ceci doit suffire:

Code:

---

1 2 3 4 5 6 7 8 9

procedure Tfsujtcontact.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin if (PageControl1.ActivePageIndex = 1) and (Autres conditions) then begin AllowChange := False; MessageDlg('Veuillez compléter votre saisie.', mtWarning, [mbOK], 0); end; end;

---

@+ Claudius

Bonjour Cl@uCl@u ; merci de m'avoir consacré de votre temps pour m'aidé sa m'encourage de faire +++ d'efforts , additivement a vos directives l'erreur : j'ai oublié de mettre toutes les conditions entre parenthésé

Code:

---

1 2 3 4

........................ if ( (pagecontrol1.ActivePageIndex=1) and(rbsuivitrt.Checked=true) or (rbmodifsuivit.Checked=true) or (eqt.Text<>'') or (eqt.Text<>'0')) .................................................

---

Comme dit Claudius (à demi mot), les parenthèses ne sont pas à la bonne place (Priorité des opérations) ;)

Arrête aussi de mettre ces Checked=TRUE. Le test attend un booléen, Checked en est un ! Qu'écrire de plus :mrgreen: