Donner le focus à un TFindDialogRésolu

Question

Bonjour à tous,

Voila, je suis entrain de faire un programme pour créer des:
- Fanfictions
- Romans etc...

Le programme se compose donc de 2 parties:
- L'organigramme de fanfictions/romans
- La rédaction

Vous allez me dire, quel est l'interet de cela ? Ben en fait cela permet de mieu s'organiser dans ce que l'ont fait.

Venons en à mon problème, j'ai un TRichEdit, un TTreeView et un TFindDialog.
Quand je fais une recherche sur mon TRichEdit, dès que j'ai cliqué sur Suivant, pour pouvoir afficher dans le TRichEdit en surbrillance(sélectionné) le mot trouvé, je doit passer par un SetFocus sur le TRichEdit.
Je voudrais pouvoir faire donc mon SetFocus sur le TRichEdit, sélectioner le mot pour montrer l'endroit où il est trouvé, et ensuite rendre le focus au TFindDialog.

J'ai vu qu'il y a pas de SetFocus ou équivalent pour le TFindDialog, j'aimerais donc savoir si certains ont une solution comme l'utilisation de l'API Win32 ?
Et dans ce cas là, quel fonction de l'API utilisé ? Car j'ai encore jamais utilisé l'API Win32 sauf pour ShelleExecute ;)

Merci d'avanceà celui qui pourra m'aider.

cs_Loda · Accepted Answer

salut,

aRichEdit.HideSelection := false;

devrait résoudre ton problème.

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

cs_christophedlr · Answer

Salut Loda,

Merci pour la réponse si rapide.
Je viens d'essayer, cela change absoluement rien, mon TFindDialog ne reprend toujours pas le focus.

Cirec · Answer

Salut,

Essaye avec ceci :

  SetActiveWindow(FindDialog1.Handle);

 
@+
Cirec

<hr size="2" />

Cirec · Answer

ps: avec la méthode proposé par Loda 
tu devrais pouvoir te passer du SetFocus sur le RichEdit (pour afficher l'élément trouvé) et du coup
plus besoin de SetActiveWindow 

 
@+
Cirec

<hr size="2" />

cs_christophedlr · Answer

Je viens d'essayer en enlevant le setfocus et en mettant HideSelection à False, ca marche.

Merci à vous 2.

Donner le focus à un TFindDialog

5 réponses

Votre réponse

Discussions similaires