Discussion :

[qi130]

Soit une appli graphique qui tourne.

Elle présente des boutons, 1 champ Edit, 1 label.

Comment récupérer le handle associé à ces objets ?


Je cherche à envoyer un WM_PASTE au champ Edit.

Sachant que j'ai regardé la FAQ et l'exemple concernant l'envoi de WM_CLOSE à une fenêtre; mais son adaptation ne semble pas fonctionner (msdn semble indiquer que c'est l'Edit qui doit recevoir ce message).

Merci pour vos lumières

[sjrd]

Tu peux récupérer le handle de tous les descendants de TWinControl par leur propriété Handle.
Mais pour faire effectuer un WM_PASTE à ton edit je te conseilles plutôt d'utiliser Perform :

Code :

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

Edit1.Perform(WM_PASTE, ...);

[qi130]

Arhhhh, il manque un détail dans les données du pb:

Je n'ai pas les sources de cette appli, mais je veux créer un pgm en Delphi qui va (essayer d') envoyer WM_PASTE au champ Edit...

Donc mon prog doit
1/ récupérer le handle de l'autre appli
2/ identifier le champ Edit
3/ envoyer le message

[Bestiol]

regarde cette source de Nono40.

Avec EnumChildWindows tu peux récupérer le handle de ton Edit dans ta fenêtre.
Pour trouver le handle de ta fenêtre, utilise FindWindow ou FindWindowEx

[qi130]

Merci aux contributeurs, voici le résultat :

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
24
25
26
27
28
 
program Paste2D1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,messages,windows,Classes;
 
 
var
  monhandle,newhandle : THandle;
Function EnumChildProc(H:THandle;HEdit:THandle):Bool;Stdcall;
Var BuffClasse : Array[0..255]Of Char;
Begin
    GetClassName (H,@BuffClasse,SizeOf(BuffClasse));
 
    if BuffClasse='Edit' then begin
       newhandle:=H;
       Result:=False;
    end;
End;
 
Begin
  //Le second paramètre de FindWindow est le titre de la fenêtre!
  monhandle := FindWindow(nil,'User ID');
  EnumChildWindows(monhandle,@EnumChildProc,newhandle);
  SendMessage(newhandle,WM_PASTE,0,0);
end.

J'ai un doute sur l'utilité du LParam à l'appel de EnumChildWindows, mais bon ça fonctionne, alors.....