Discussion :

[Bernard B]

Bonjour,
j'ai une appli en Delphi XE2, avec Form1 en fenêtre principale et Form2 une fenêtre qui est ouverte par une action dans Form1.
Form2 ne peut pas être modale.
Je voudrais que lorsque Form2 s'est ouverte, si je clique sur un bouton de Form2, il soit actif au premier clique alors qu'il ne l'est qu'au second.
J'ai essayé avec Form2.SetFocus après le Form2.show, avec BringtoFtront, ça ne fonctionne pas.
J'ai aussi vérifié que l'événement OnActivate de Form2 partait bien.
J'ai aussi ajouté Form2.Button1.setFocus dans Form2.OnActivate, pas de résultat.
L'idéal serait que le fait de survoler une fenêtre avec la souris lui donne le focus...

Merci de votre aide

[ShaiLeTroll]

Form1 est créé par CreateForm dans le DPR, je suppose !
Form2 est créé par un Create dans le code de Unit1 ou pas un CreateForm dans le DPR

Utilises-tu une variable locale pour Form2 ou la globale déclarée dans Unit2 ?
Attention à la confusion des instances !

Une fenêtre lors de son affichage prend forcément le Focus, surtout si elle contient un TButton ou un TBitBtn, pas contre avec un TSpeedButton, il y a peux-être une différence !

Je ne comprends pas, si tu as un bouton dans Form2, si c'est le Bouton qui a le Focus, on considère que la fenêtre parente possède aussi le Focus (la barre de titre change de couleur)

Pour le survol, OnMouseEnter, OnMouseLeave sont parfait pour cela !
Il y a aussi TrackMouseEvent mais en XE2, le OnMouseLeave est plus efficace qu'en D6, à ce que j'ai cru comprendre

[Bernard B]

Les deux Forms sont créées dans le DPR

J'utilise la variable globale de l'unit2.

Form2 lorsqu'elle est affichée a déjà une forme de focus parcequ'en particulier les Hints des boutons s'affichent.
En refaisant des manips je crois avoir trouvé d'où viens le pb :
Si je lance le show de Form2 et qu'elle n'est pas visible, fonctionnement correct elle s'affiche et prend le focus.
Si elle est affichée, que je reprend la main sur Form1 que je provoque à nouveau le show de Form2 c'est là qu'elle ne s'active qu'au second clique.
J'ai essayé de OnMousEnter de Form2, il ne se déclenche pas !
Je vais essayer le TrackMouseEvent