Problème de SetFocus sur bouton dans TabSheet inopérant au PageControl.OnChange

Version imprimable

Bonsoir,

tout est dans le titre : un PageControl, 4 TabSheets, sur le troisième un bouton et d'autres trucs, et l'événement OnChange du PageControl comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure TMainform.pgChange(Sender: TObject); begin Application.ProcessMessages; // rajouté mais ne change rien case pg.ActivePageIndex of 0: ; 1: ; 2: btnBrowse.SetFocus; // pas de focus... :-( 3: ; end; Application.ProcessMessages; // rajouté mais ne change rien end;
Debian 7/32, Laz 1.0.10
Une idée ?
Merci,

bonjour,

essaie ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
procedure TMainform.pgChange(Sender: TObject);
begin
 case pg.ActivePageIndex of
    0: ;
    1: ;
    2: begin
        pg.ActivePage.SetFocus;     
        btnBrowse.SetFocus; //  focus ou non ? 
        end;
    3: ;
  end;
end;

Amicalement, nullosse

20/01/2014, 09h34
Jipété

Bonjour nullosse (et les autres),

bien tenté, mais désolé, pas mieux... :aie:
Perso, j'ai aussi tenté dans le OnShow du TabSheet, sans plus de résultat

Une autre idée ?
Bonne journée,

Bonjour,

Que votre TButton appartienne ou pas au TPageControl, je proposerais plutôt une action au niveau de la souris.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.pgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case pg.ActivePageIndex of 0: ActiveControl:= pg; 1: ActiveControl:= pg; 2: ActiveControl:= btnBrowse; 3: ActiveControl:= pg; end; end; procedure TForm1.btnBrowseClick(Sender: TObject); begin showmessage(''); end;
Vous remarquerez que

le code initial (dans pgChange) donne bien le focus au TButton (c'est imperceptible)... puis rend le focus au PageControl...
votre TButton a bien le focus : Pour s'en convaincre, après avoir cliqué sur le 3ème onglet qui sélectionne le TButton, il suffit d'appuyer sur la touche [Entrée] du clavier pour voir apparaître le ShowMessage de btnBrowseClick()

Cordialement. Gilles

Code testé sous Ubuntu 12.04.3-64 bits - Lazarus 1.2RC2 du 10/01/2014 - FPC 2.6.2 Rév SVN 43686

20/01/2014, 11h45
Jipété

Citation:

Envoyé par selzig

Bonjour,

Si comme je le suppose, votre TButton n'appartient pas au TPageControl, je proposerais plutôt une action au niveau de la souris. (...)

Mon TButton appartient à un TPanel posé (en alTop) sur le TTabSheet concerné.

Et malgré ce code, le focus ne passe toujours pas au bouton :calim2:

Citation:

Envoyé par selzig

(...) Vous remarquerez que le code initial (dans pgChange) donne bien le focus au TButton (c'est imperceptible)... puis rend le focus au PageControl...

Cordialement. Gilles

Code testé sous Ubuntu 12.04.3-64 bits - Lazarus 1.2RC2 du 10/01/2014 - FPC 2.6.2 Rév SVN 43686

Je ne vois rien, ou alors faut le voir en pas-à-pas ? Mais ça ne changera pas mon problème, qui doit être puis rend le focus au PageControl... :aie:
Truc de ouf' :evilred:
20/01/2014, 11h54
Invité

Bonjour,

On le voit mieux (mais c'est toujours presque imperceptible) s'il est placé en dehors du PageControl.

Le TPanel n'a pas d'influence. Je n'ai pas de Debian ici pour tester, et définitivement pas de 32 ;). Je place le projet sur mon serveur ftp pour test. Mais ici, cela fonctionne -> La sélection du troisième onglet (le 2), donne bien le focus au TButton.

C'est très curieux votre histoire. Il n'y a pas d'autre code qui puisse modifier le comportement du PageControl ou de la Form ?

Je viens de vérifier sous Gnome Shell (le projet était sous Unity) : le comportement est identique. RAS.

Cordialement. Gilles
20/01/2014, 13h05
tourlourou

Comment le changement d'onglet intervient-il ?
Manuellement, par l'utilisateur, ou par code ?
Voir ceci si option 2 (événements pas déclenchés, en Delphi);

Yop !

Gilles, je suis également parti d'un nouveau projet complètement vierge avec juste un TPageControl, 4 TTabSheets et 1 TButton sur le 3e. Go figure...

Yves, merci de t'intéresser à mes petites misères mais, non, c'est l'utilisateur (ma pomme :mrgreen:) qui clique sur le 3e onglet.

Bref, Gilles m'a mis sur la piste avec cette histoire de focus qui retourne au TabSheet, et donc je m'en suis sorti en m'inspirant de ce lien, comme ça :
Code:

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 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 private { private declarations } procedure EnterTS2(Sender: TObject; var Result: Boolean); public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } var enter_ts2: Boolean; procedure TForm1.FormCreate(Sender: TObject); begin enter_ts2 := False; Application.OnIdle := @EnterTS2; end; procedure TForm1.pgChange(Sender: TObject); begin case pg.ActivePageIndex of 0: ; 1: ; 2: enter_ts2 := True; 3: ; end; end; procedure TForm1.EnterTS2(Sender: TObject; var Result: Boolean); begin if enter_ts2 then begin enter_ts2 := False; button1.SetFocus; end; Result := True; end;
Ça fonctionne tip-top :ccool:, j'espère juste ne pas avoir d'effets de bord incongrus (1re fois que j'utilise "OnIdle"...)

Merci à tous, je coche :resolu: mais on peut continuer à discuter.

bonjour,
tu peux aussi essayer d'utiliser un setfocus asynchrone (cela marche chez moi sous Ubuntu :P ) comme ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 procedure AsyncSetFocus(aPointer: PtrInt);     
...
procedure TForm1.pgChange(Sender: TObject);
var lPointer:PtrInt=0;
begin    
case pg.ActivePageIndex of
    0: ;
    1: ;
    2:  lPointer := PtrInt(btnBrowse);
    3: ;
  end;
   if lPointer<>0 then
     Application.QueueAsyncCall( @AsyncSetFocus, lPointer);      
end;
 
procedure TForm1.AsyncSetFocus(aPointer: PtrInt);
begin
  if (aPointer<>0) and TWinControl(aPointer).CanFocus then
     TWinControl(aPointer).SetFocus
end;

Amicalement, nullosse

21/01/2014, 09h22
Jipété

Bonjour à tous,

Citation:

Envoyé par Nullosse

tu peux aussi essayer d'utiliser un setfocus asynchrone (cela marche chez moi sous Ubuntu :P ) (...)

Je ne connaissais pas donc je n'en aurais jamais eu l'idée, mais en tout cas ça fonctionne aussi !
Bien joué :ccool: