Discussion :

[Jipété]

Bonjour,

sur une fiche vierge je pose d'abord un TCheckBox, puis un TButton et pour faire bonne mesure un autre TButton.

Ensuite, j'écris un code hautement sophistiqué et laborieux :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  Button2.SetFocus;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

et j'appuie sur F9 : la fiche s'affiche, avec le focus sur le CheckBox, je peux jouer avec <Espace> pour cocher/décocher, pas de souci, la cata arrive quand j'appuie sur <TAB> : le focus passe au Button1,

J'ai bien tenté de mettre le TabStop du TCheckBox à False mais, outre le fait qu'au run l'animal n'a plus le focus, le OnExit envoie quand même dans Button1.

Constaté dans Laz 1.4 - Debian 32 bits et Laz 2.0.10 - Debian 64 bits.

Une idée ?

Une astuce consisterait à mettre le TabStop de Button1 à False et là ça fonctionne mais, si c'est envisageable pour une fiche à 3 composants, ça l'est moins s'il y en a beaucoup et s'il faut presque tous leur faire subir ce traitement.

[BeanzMaster]

Salut normalement tu n'as pas besoin de onExit pour donner le focus à un autre composant, à moins de vouloir checker la valeur du composant en cours et de rediriger le focus vers un autre composant suivant le résultat. L'évènement onExit se déclenche juste avant à la perte du focus de l'élément, si je me souviens bien.

J'ai testé sous Windows, ça fonctionne. Donc problème de comportement avec Linux.

Essayes avec activeControl = button2 ou avec FocusControl(button2); qui proviennent de TForm . Si ca ne fonctionne toujours pas essayes avec l'évènement onEditingDone qui passera au composant choisi dès que tu cocheras/décocheras ta checkbox. Ce n'est peut-être pas ce que tu souhaites.

Au pire, vérifies juste bien l'ordre de "tabOrder" de tes composants Button1 = 1, Checkbox = 2, Button2 = 3. C'est le menu "voir ==> Ordre de tabulation" ce qui t'évites de jouer avec le onExit

A+

Jérôme

[Jipété]

normalement tu n'as pas besoin de onExit pour donner le focus à un autre composant, à moins de vouloir checker la valeur du composant en cours et de rediriger le focus vers un autre composant suivant le résultat. L'évènement onExit se déclenche juste avant à la perte du focus de l'élément, si je me souviens bien.

Ce que je veux faire, c'est avoir au run le focus sur le CheckBox ("Arrêter la machine à la fin de la sauvegarde") comme ça un coup d'espace peut valider ce choix (décoché par défaut), et ensuite <TAB> pour sortir et là, j'aimerais tomber sur le bouton "Exécuter" pour appuyer sur <ENTRÉE> et lancer la sauvegarde.

J'ai testé sous Windows, ça fonctionne. Donc problème de comportement avec Linux.

Ouais, ben ça, c'est pas nouveau,

Essayes avec activeControl = button2 ou avec FocusControl(button2); qui proviennent de TForm . Si ça ne fonctionne toujours pas essayes avec l'évènement onEditingDone qui passera au composant choisi dès que tu cocheras/décocheras ta checkbox. Ce n'est peut-être pas ce que tu souhaites.

Les deux premières propositions = même pâté, c'est Button1 qui prend le focus.
OnEditingDone fonctionne mais c'est violent : pas moyen de faire espace-espace-espace... pour voir la coche changer d'état, dès après le 1^er coup d'espace, hop !, focus au button2.

Au pire, vérifies juste bien l'ordre de "tabOrder" de tes composants Button1 = 1, Checkbox = 2, Button2 = 3. C'est le menu "voir ==> Ordre de tabulation" ce qui t'évite de jouer avec le onExit

Ça, c'est valable quand il n'y a que 3 compos sur une maquette. Mais là, les compos sont regroupés dans des panels et autres TGroupBox dont certains apparaissent en fonction du contexte (dd externe branché ou pas), et l'ordre de tabulation va être ingérable.

L'idée c'était de ne pas être obligé de chercher la souris pour cliquer sur "Exécuter", mais comm' d'hab' ça va être compliqué sous Linux, donc comm' d'hab' je vais laisser tomber.

Merci d'avoir tenté quelque chose.

[BeanzMaster]

Si non dans onKey(up, press) tu peux intercepter le tab et donner le focus a ton bouton

[Jipété]

Si non dans onKey(up, press) tu peux intercepter le tab et donner le focus a ton bouton

Oui, mais c'est comme avec

OnEditingDone -- ça fonctionne mais c'est violent : pas moyen de faire espace-espace-espace... pour voir la coche changer d'état, dès après le 1^er coup d'espace, hop !, focus au button2.

Bah, c'est comme ça. Ne perds pas ton temps avec ça.
Merci encore,

[tourlourou]

C'est vrai que ça rend un peu fou...

Si tu ajoutes un ShowMessage dans le OnExit de la case à cocher avant le SetFocus, il se produit comme attendu, mais si le ShowMessage est remplacé par un appel à une procédure non visuelle, non !

[Jipété]

C'est vrai que ça rend un peu fou...

Comme tu dis, Yves, comme tu dis…

Bon, l'idée que j'ai eue (mais aurai-je le temps ?), c'est d'explorer les codes du TCheckBox.OnExit, OnKeyUp et OnEditingDone pour voir si je ne pourrais pas mixer tout ça dans un TCheckBoxPerso.
Un jour peut-être…

[BeanzMaster]

Peut-être juste une truc comme ça :

Code :

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

1
2
3
4
procedure TForm1.checkBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin           
  if Key=VK_TAB then monBouton.setFocus;
end;

[Jipété]

Peut-être juste une truc comme ça :

Code :

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

1
2
3
4
procedure TForm1.checkBox1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin           
  if Key=VK_TAB then monBouton.setFocus;
end;

Tu as tenté chez toi ? Parce que chez moi ça donne le focus à Button1 malgré le code qui dit Button2…

Truc de fou il a dit, Yves !

Pour ne pas mourir idiot, j'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.CheckBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_TAB then begin
    Form1.Color:=clRed;
    Button2.setFocus;
  end;
end;

et quand je fais F9, le focus se met sur le checkbox (puisque je l'ai posé en premier sur la fiche) et si je fais espace-espace-espace je vois bien la case à cocher qui bagote, ok.
Mais si je fais TAB, le focus est donné à Button1 et la fiche n'est pas rouge !
Si je fais encore TAB, le focus passe à Button2 et il ne se passe rien de plus, par contre, si encore une fois TAB alors là c'est Woodstock : la fiche passe rouge et le focus revient à Button2 !
"Revient" parce qu'une fraction de seconde on le voit passer sur le checkbox.

1-) c'est épuisant ;
2-) j'ai fouillé dans les codes source, il n'y a rien pour m'aider, rien de rien…

[BeanzMaster]

Derniere tentative essayes ca

Code :

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

1
2
3
4
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  LCLIntf.SetFocus(button1.Handle);
end;

[Jipété]

Pas mieux,

[BeanzMaster]

Hello petite question est-ce que ta checkbox et ton bouton sont dans des panel différents ?

[BeanzMaster]

J'ai trouvé 2 trucs chez les anglois. Essayes :

Google translate

J'ai eu un problème similaire sous Linux et maintenant j'utilise toujours SetFocusedControl(). De plus, TabSheet doit être visible, j'ai donc défini la mise au point dans un gestionnaire pour l'événement TPageControl.OnChange.

Cela fonctionne généralement - pas toujours, Gtk étant assez capricieux, mais la plupart du temps, cela fonctionne

Code :

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

1
2
3
4
5
 
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  SetFocusedControl(Button1);
end;

et

Code :

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

1
2
3
4
5
6
 
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  Button1.setFocus;
  Application.processmessages;
end;

[Jipété]

Yep !

Hello petite question est-ce que ta checkbox et ton bouton sont dans des panel différents ?

Oh que non !
Tout est bêtement sur la form -- rappel : là c'est un test sur une maquette minimaliste : la form et dessus la checkbox et 2 buttons car je veux que le taf se fasse sur le button2 sinon on ne verra jamais le bug.

Et justement, en parlant de bug,

J'ai trouvé 2 trucs chez les anglois. Essayes :

Code :

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

1
2
3
4
5
 
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  SetFocusedControl(Button2);
end;

Pas mieux. Et même pire : une fois le focus sur Button1 (oui ! Vous avez bien lu, tiens d'ailleurs je mets mon code par copier/coller :

Code :

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

1
2
3
4
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  SetFocusedControl(Button2);
end;

une fois le focus sur Button1 disais-je, l'appui sur <TAB> n'est plus actif, comme si le prog était planté.

Mais là où on rigole, c'est que si je cache la fiche par la fenêtre de Firefox (qui me permet de répondre ici), quand je découvre la fiche le focus est sur le Button2 !

Il doit y avoir une histoire de refresh/repaint qui m'échappe, là.

Confirmé : F9, la fiche s'affiche, TAB et le focus passe à Button1, Alt-Tab pour donner le focus à un autre prog puis encore Alt-Tab pour le redonner à ma fiche à souci et là c'est bon, le Button2 a le focus.
C'est dramatique ce bazar et je n'ai aucune idée de comment le gérer...

Testé dans la machine neuve et Laz 2.0.10, c'est + ou - pareil. J'ai fait ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  Button2.SetFocus; // tout seul --> focus sur Button1 et y reste malgré la manip Alt-Tab 2 fois
  // ajout de App.ProcMess 
  Application.ProcessMessages; // ne change rien au comportement précédent.
  // Par contre, utiliser juste ça (et donc les 2 lignes précédentes commentées) :
  SetFocusedControl(Button2); // foire as usual (focus sur Button1) mais là, la manip Alt-Tab 2 fois ramène le focus sur Button2
  // la question est donc : comment générer Alt-Tab 2 fois *ici* et sans flicker si possible !
  // à vous les studios, ;-)
end;

Code :

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

1
2
3
4
5
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  Button2.setFocus;
  Application.processmessages;
end;

J'avais commencé par ça, bien sûr. Je ne l'ai pas écrit dans le 1^er post ? Petit oubli mineur car c'est tellement évident.

[BeanzMaster]

Salut t'as essayé en faisant un "form1.repaint/refresh" juste apres SetFocusedControl(Button2); ?

[Alcatîz]

Bonjour,

J'ai testé avec Lazarus 2.0.12-3 / FPC 3.2.2-1 sur Manjaro Linux 64 bits et j'ai bien le comportement voulu : le focus passe du TCheckBox au Button2.

[Jipété]

Yep !

Salut t'as essayé en faisant un "form1.repaint/refresh" juste apres SetFocusedControl(Button2); ?

Ben oui mais c'est pas mieux
J'ai même essayé ça :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.CheckBox1Exit(Sender: TObject);
begin
  SetFocusedControl(Button2);
  Application.ProcessMessages;
  Form1.Update; //Refresh; //Repaint;
  Application.ProcessMessages;
end;

Pour rien ça foire toujours,

Doit y avoir un bug dans le widgetset, et "ils" ont dû le corriger, la preuve :

J'ai testé avec Lazarus 2.0.12-3 / FPC 3.2.2-1 sur Manjaro Linux 64 bits et j'ai bien le comportement voulu : le focus passe du TCheckBox au Button2.

Plus qu'à attendre que je mette la nouvelle machine en prod' pour tester. Probablement l'affaire d'une à deux semaines.

Merci à tous, restez attentifs, je ne manquerai pas de faire un retour.

[Jipété]

Bonjour,

Plus qu'à attendre que je mette la nouvelle machine en prod' pour tester. Probablement l'affaire d'une à deux semaines.

Merci à tous, restez attentifs, je ne manquerai pas de faire un retour.

Et comme ça me démangeait, j'ai fait à l'ancienne : d'abord virer tout ce qui concerne fpcup puis dl des 3 points deb chez lazarus-ide.org et dpkg -i fpc-laz*.deb fpc-src*.deb laz*.deb dans cet ordre et roule ma poule, en une poignée de seconde c'est installé (magique les disques ssd !).

Et donc j'ai testé, et quel désespoir...

Bon d'accord, je n'ai pas exactement les mêmes versions que celles d'Alcatîz (2.0.12-0 vs 2.0.12-3 et fpc 3.2.0-1 vs 3.2.2-1), il va donc falloir encore patienter -- ou bidouiller, et ça, franchement, j'ai pas envie.

Au fait, Alcatîz, tu nous as dit que ça fonctionnait bien chez toi, ok, mais tu ne nous as pas donné les lignes de code que tu as utilisées. Pour comparer, c'est quand même nécessaire.
Merci,

[anapurna]

salut

as tu essayé sur le onclick du Tcheckbox
dans mon souvenir on onexit est "trappé" par le label associé à la case merci windows

c'est historique
un peu comme le onclick qui se déclenche quant tu assigne la valeur check par programmation
le tchekbox est un composant un peu déroutant au premier abort

[Jipété]

Yop !

as-tu essayé sur le onclick du Tcheckbox

Non, parce que je pensais que ça ne conviendrait pas. Démonstration :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Button2.SetFocus;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

F9 --> la fiche s'affiche, le tcheckbox a le focus, la case à cocher n'est pas cochée.
<ESPACE> et la case devient cochée ET le Button2 a le focus, donc je ne peux plus appuyer sur ESPACE pour décocher car le Button2 y réagissant comme sur ENTER, le prog se ferme.

Pour empêcher ce comportement, il faut repasser le contrôle au checkbox avec un coup de TAB, ce qui est contraire au fonctionnement usuel de l'ihm.
De plus cette astuce n'est valable que dans la maquette à trois composants.