Discussion :

[yasmine*]

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

[Cl@udius]

Salut

Qu'est-ce que PtsClasseDBGd ? Un TDBGrid ?
Si oui ce composant est-il sur la même fiche que cette procédure ?

@+ Claudius

[aityahia]

impossible de focaliser une fenêtre désactivée ou invisible
n'est pas forcément le cas sa peut etre un bouton un Edit ou tous autre composant visuel alors gars a vos SetFocus.
vous pouvez faire des test avant

Code :

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

If MyComp.Enabled Then MyComp.SetFocus;

[Flode]

Une autre piste :

Peut-être appelles-tu l'évènement "onchange" de ton composant "TEncodPtsClassesFm" alors que celui-ci n'est pas enable ?

Ou peut-être les "AfficherPtsxxx".

As-tu essayé de mettre un point d'arrêt sur la première ligne de l'évènement et faire du pas à pas ?
- sur quelle ligne précisément plante-il ?
S'il n'arrive pas jusqu'à ton point d'arrêt , laors c'est un autre évènement qui génère l'erreur, il faut que tu découvre lequel.