Je souhaiterais détecter que le focus a été donné à un autre composant que le mien (qui est un TLayout avec des sous-composants TRectangle).
Vu que l'évènement OnExit n'est pas publié, j'ai fouillé les sources et j'ai vu qu'il était défini dans la classe TControl.
J'ai codé ça, et ça ne fonctionne pas :J'ai mis un point d'arrêt dans TestExit, et il n'y passe jamais.
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
16
17
18
19
20
21
22
23 type TTest = class(TLayout) ... protected procedure TestExit(Sender: TObject); ... end; ... constructor TTest.Create(AOwner: TComponent); begin ... OnExit := TestExit; ... end; procedure TTest.TestExit(Sender: TObject); begin // Plein de code ... end;
Pourtant, j'ai activé le HitTest.
Une idée ?
Partager