Discussion :

[redoran]

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

Code :

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

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

[Cl@udius]

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.
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 :

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

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

sera toujours vraie.

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 :

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

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

[redoran]

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 :

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

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

[Andnotor]

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