bonjour, j'ai un gros probleme ma fenetre est active mais j'ai toujour le message repris au titre voila ou le programme s'arrete quand je compile pas a pas :
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
17
18
19
20
21
22
23
24
25
26
27
28
29
 
procedure TEncodPtsClassesFm.CoursCmbBxChange(Sender: TObject);
var
  PtsClasse: Boolean;
  Idx: Integer;
  MatEtud: string;
begin
  PtsClasse := CoursCmbBx.ItemIndex = 0;
  MotivationMnuItem.Visible := PtsClasse;
  CopierPointsBtn.Visible := not PtsClasse;
  MatEtud := PtsClasseQryMAT_ETUD.AsString;
  if PtsClasse then
    AfficherPtsInsc
  else begin
    Idx := CoursCmbBx.ItemIndex - 1;
    IdCoursCourant := LstIdCours[Idx];
    PoidsEvalCont := StrToInt(LstPoidEvalCont[Idx]);
    PoidsEvalSomm := StrToInt(LstPoidEvalSomm[Idx]);
    PoidsTotal := PoidsEvalCont + PoidsEvalSomm;
    EvalCont := PoidsEvalCont <> 0;
    EvalSomm := PoidsEvalSomm <> 0;
    AfficherPtsCours;
  end;
  PtsClasseQry.Locate('MAT_ETUD', MatEtud, []);
  try
    ActiveControl := PtsClasseDBGd;//  <-----------
  except
  end;
end;
est ce que vous avez une idee merci d'avance