Discussion :

[Lung]

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 :

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;

J'ai mis un point d'arrêt dans TestExit, et il n'y passe jamais.
Pourtant, j'ai activé le HitTest.

Une idée ?

[Thierry Laborde]

Bonjour,

Une idée ?

Code :

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

CanFocus := True;

[Thierry Laborde]

Moi avec Delphi Berlin Update 2, j'ai créé une appli FMX. J'ai mis un layout sur la form, puis un edit qui n'est pas dans le layout.
Et ensuite ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.FormCreate(Sender: TObject);
begin
  Layout1.OnExit   := LayoutOnExit;
  Layout1.CanFocus := True;
  Layout1.SetFocus;
end;
 
procedure TForm1.LayoutOnExit(Sender: TObject);
begin
  Showmessage('Layout OnExit');
end;

Lorsque je lance l'application, que je clique sur le composant edit pour lui donner le focus dans ce cas là j'ai bien le message OnExit du layout qui s'affiche.

[Lung]

Code :

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

CanFocus := True;

Oui ! Je l'avais oublié celui-là.

Ça marche !