Discussion :

[RamDevTeam]

Bonjour,

Comment savoir si un descendant de twincontrol, est posé sur un PageControl et dans ce cas activer le ttabsheet correspondant.

J'ai une gestion d'erreur qui me permet de connaitre le composant pour lequel il y a une erreur de saisie.

Le principe est simple, j'empile les messages d'erreur dans un Tlistbox et dans le tableau d'object je stocke la référence au champ de saisie.

Quand on double-clic sur une ligne du Tlistbox, je fait un

Code :

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

TwinControl(Lecomposant).setfocus;

Ca marche très bien SAUF avec les Tpagecontrol si l'onglet visible n'est pas celui contenant le champ de saisie.

donc il me faudrait au préalable activer le bon onglet .. et là je séche.


Ma procédure de sélection =

Code :

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

1
2
3
4
5
6
7
8
procedure JumpToError(compo : Tcomponent);
begin
      if compo<>nil then
      begin
        if compo.InheritsFrom(TWinControl) then
           TWinControl(compo).SetFocus;
      end;
end;

[qi130]

Je ne me souviens plus la syntaxe exacte (le code est à la maison...), mais il faut commencer par rendre visible le tabSheet proprio du composant.

Si ce post n'avance pas d'ici ce soir, j'y mettrais ma solution...

[RamDevTeam]

Ma solution :

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
 
procedure JumpToError(compo : Tcomponent); 
var compoParent  : Tcomponent;
begin
      compoParent := compo.GetParentComponent;
      if compoParent<>nil then
      begin
        // on affiche la page
        if compoParent.InheritsFrom(TTabSheet) then
             TTabSheet(compoParent).Show;
        // on met le focus sur le composant.
        if compo.InheritsFrom(TWinControl) then
                      TWinControl(compo).SetFocus;
      end;
end;

[qi130]

et voici le mien

Code :

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

1
2
PageControl1.ActivePage:=(TComboBox(FindComponent('TPI'+IntToStr(i))).Parent as TTabSheet);
TComboBox(FindComponent('TPI'+IntToStr(i))).SetFocus;

[RamDevTeam]

C'est pas trop mal

Mais dans mon cas, tous les contrôles ne sont pas forcément dans un Ttabsheet.

Bon dev.