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