Discussion :

[Andry]

Bonsoir tous,

Dans mon appli, à la sortie d'une Tedit, j'affiche une grille (Composant TGridViewXP de BergSoftware) qui est peuplé par des données via une requête.



Dans l'evenement onDblclic de la grille j'ai mis ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TFrm_sav_e.Gr_articleDblClick(Sender: TObject);
Var Rw  : integer;
begin
  Rw                  := Gr_article.SelectedRow;
  Ed_dp_ar.Text       := Gr_Article.Cells[0,Rw];
  Ed_dp_design.Text   := Gr_Article.Cells[1,Rw];
  Ed_dp_pu.Text		    := Gr_Article.Cells[2,Rw];
  if Ed_dp_pu.CanFocus then Ed_dp_pu.SetFocus;
  Gr_Article.Hide;
end;

Mais après le double clic,
il m'affiche cette mesage

cannot focus a disabled or invisible window

Qu'est ce qui cloche

Merci

[tigunn]

salut Andry,
le probleme pourrait il venir de la:

Code :

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

1
2
 
if Ed_dp_pu.CanFocus then Ed_dp_pu.SetFocus;

tu lui demande dans un evt dblclick sur ta dbgrid(qui a alors le focus!!) si
un autre composant a le focus?
qu'est-ce que Ed_dp_pu?

[Teo]

Ton "Ed_dp_pu" ne peut pas avoir le focus.
Vérifie, s'il est pas invisible ou désactivé,
ou si son parent ne l'est pas.
.CanFocus merde qlq fois (j'ai jamais su quand)
alors pour eviter les MsgBox
moi je fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Var Ch:String;
Try
  If Control.CanFocus
  Then Control.SetFocus
Except
  Try //Nouvelle Tentative
    Form.ActiveControl := Control;
    Ch := 'Ok';
  Except
    Ch := 'Ko'
  End;
  Application.Hint := Ch;//Pas util, mais ca evite le compil de me dire Ch jamais utilisé
End;

[Andry]

Bon,
Avant j'ai utilisé un StringGrid De la VCL, mais pour un peu de confort de manipulation, j'ai opté pour le TGridViewXP.
J'ai changé le TGridViewXP avec un TAdvStringGrid de TMS, et le problème est résolu.

Merci à vous.