Checkbox.OnExit ne fonctionne pas comme prévu

Salut

Petite question en débuguant passe tu dans ton onexit ?
as tu essayé Invalidate pour forcer le dessin ?

Citation:

---

Envoyé par anapurna

Petite question en débuguant passe-tu dans ton onexit ?

---

Oui.
Et en pas-à-pas, je me retrouve Dieu sait où dans customform.inc, puis dans control.inc, dans gtk2widgetset.inc, gtk2callback.inc, gtk2proc.inc, LCLMessageGlue, wincontrol.inc...

Citation:

---

Envoyé par anapurna

as-tu essayé Invalidate pour forcer le dessin ?

---

Oui et ça ne force rien du tout.

Mais il y a bien une saleté dans le widgetset.
Voilà ce que j'ai découvert :

Code:

---

1 2 3 4

procedure TForm1.CheckBox1Exit(Sender: TObject); begin Button2.SetFocus; end;

---

Avec ce code et le point d'arrêt sur l'unique ligne de la proc, je fais F9 et quand la fiche est là je fais TAB. Donc je pars en mode pas-à-pas et la seule chose que je fais c'est F9 pour faire continuer, ie je ne rentre pas dans le code, et donc il me faut cliquer sur la barre de titre de la fiche pour lui redonner le focus et là, c'est le Button1 qui a le focus.

Mais avec cet autre code et strictement la même manière de faire,

Code:

---

1 2 3 4

procedure TForm1.CheckBox1Exit(Sender: TObject); begin SetFocusedControl(Button2); end;

---

ben là c'est Button2 qui a le focus.

Allez y comprendre quelque chose...