papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
 | | Sujet: Déterminer le Handle de l’objet ayant le focus Dim 16 Juil 2017 - 2:15 | |
| - Code:
-
rem ============================================================================
rem GetFocus
rem Déterminer le Handle de l’objet ayant le focus
rem ============================================================================
edit 10 : top 10,100 : left 10,050 : text 10,"Edit 10"
edit 20 : top 20,100 : left 20,200 : text 20,"Edit 20" : set_focus 20
edit 30 : top 30,100 : left 30,350 : text 30,"Edit 30"
GetFocus()
message "Le HANDLE de l'objet ayant le focus est : "+ chr$(13) + str$(HndFocus%)
end
rem ============================================================================
SUB GetFocus()
if variable("HndFocus%") = 0 then dim HndFocus%
dll_on "user32"
HndFocus% = dll_call0("GetFocus")
dll_off
END_SUB
rem ============================================================================
| |
|
Fredisland
Nombre de messages : 261
Date d'inscription : 30/03/2018
| | Sujet: Re: Déterminer le Handle de l’objet ayant le focus Mar 1 Mai 2018 - 18:06 | |
| Excellent.Je garde le code. Il ne reste plus qu'à retrouver le numéro de l'objet à partir de son handle... | |
|
Klaus
Nombre de messages : 12331
Age : 75
Localisation : Ile de France
Date d'inscription : 29/12/2009
| | Sujet: Re: Déterminer le Handle de l’objet ayant le focus Mar 1 Mai 2018 - 18:26 | |
| - Citation :
- Il ne reste plus qu'à retrouver le numéro de l'objet à partir de son handle...
Il n'y a aucun lien évident entre le numéro d'objet et le handle. Le numéro d'objet est une propriété purement Panoramic, inconnue du composant Delphi ou Windows dont est dérivé l'objet Panoramic. Le seul moyen de faire le lien, c'est de faire une boucle sur tous les objets Panoramic existants et vérifier si le handle de l'objet est identique au handle retourné par le code de Papydall. | |
|
Fredisland
Nombre de messages : 261
Date d'inscription : 30/03/2018
| | Sujet: Re: Déterminer le Handle de l’objet ayant le focus Mar 1 Mai 2018 - 18:30 | |
| - Klaus a écrit:
- Le seul moyen de faire le lien, c'est de faire une boucle sur tous les objets Panoramic existants et vérifier si le handle de l'objet est identique au handle retourné par le code de Papydall.
C'est la première chose à laquelle j'avais pensé, mais l'espoir fait vivre  ... | |
|
papydall
Nombre de messages : 7017
Age : 74
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Déterminer le Handle de l’objet ayant le focus Mar 1 Mai 2018 - 18:37 | |
| Merci Fredisland de dépoussiérer ce code. Il a été codé avant les FNC. Le revoici sous forme de fonction HndFocus%() - Code:
-
rem ============================================================================
rem Fonction qui renvoie le Handle de l’objet ayant le focus
rem ============================================================================
edit 10 : top 10,100 : left 10,050 : text 10,"Edit 10"
edit 20 : top 20,100 : left 20,200 : text 20,"Edit 20" : set_focus 20
edit 30 : top 30,100 : left 30,350 : text 30,"Edit 30"
message "Le HANDLE de l'objet ayant le focus est : "+ chr$(13) + str$(HndFocus%())
end
rem ============================================================================
FNC HndFocus%()
dll_on "user32"
result dll_call0("GetFocus")
dll_off
END_FNC
rem ============================================================================
| |
|
Fredisland
Nombre de messages : 261
Date d'inscription : 30/03/2018
| | Sujet: Re: Déterminer le Handle de l’objet ayant le focus Mar 1 Mai 2018 - 19:15 | |
| Excellent - Ca fait plaisir à voir toute cette réactivité... | |
|
Contenu sponsorisé
| | Sujet: Re: Déterminer le Handle de l’objet ayant le focus | |
| |
|
Calendrier