Discussion :

[Jipété]

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 :

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

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,

[Nullosse]

bonjour,

essaie ceci :

Code :

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

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

[Jipété]

Bonjour nullosse (et les autres),

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

Une autre idée ?
Bonne journée,

[Invité]

Bonjour,

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

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 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

[Jipété]

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

(...) 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...
Truc de ouf'

[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