[Hook] Comment connaître la Form à partir d'un TPoint ?

**remixtech** · 04/02/2005, 13h13

Bonjour,

Comment accéder à un tform de son application juste avec le handle....

Merciii

**olivierlsf** · 04/02/2005, 13h19

remixtech,

Est-ce que cela repond à ta question ?
http://<br /> http://delphi.develop...santsapi<br />

**remixtech** · 04/02/2005, 18h19

Non non je voudrais avoir accé à cette form et les composants dessus ...

Merci quand même ...

**Pascal Jankowski** · 04/02/2005, 18h33

Envoyé par remixtech

Bonjour,

Comment accéder à un tform de son application juste avec le handle....

Merciii

Je ne comprend pas trop pourquoi tu désires faire cela. Il existe d'autres méthodes pour accéder à un TForm ?
Excuse ma question qui doit te paraître stupide mais Pourquoi ? et dans quel contexte est-ce que cela peut-être utile ?

**remixtech** · 04/02/2005, 19h11

Salut,

Je m'explique j'ai un Hook sur la principale
Je crée les secondaires (il peut y'en avoir plusieurs)
Mais le hook doit réagir différement selon les secondaires...

En faite je ne sais même pas comment avoir le handle de la secondaire
j'ai juste le Tpoint de la souris ....

Je sais c'est chaud ....
Si vous avez pas compris n'hésitez pas à me faire répéter merci ...

**remixtech** · 04/02/2005, 19h55

Voila le code de mon hook

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
function MouseProc(nCode: integer;
  wParam,
  lParam: longint): longint; stdcall;
 
  function GetClassNameEnh(Handle: Hwnd): string;
  var
    ClassName: PChar;
    Buffer: integer;
  begin
    Buffer := 40;
    getmem(ClassName, Buffer);
    windows.GetClassName(Handle, ClassName, Buffer);
    Result := ClassName;
    Freemem(ClassName);
  end;
 
var
  P: TPoint;
    cursorPos: TPoint;
  control: TControl;
    nom: string;
begin
  if (nCode < 0) then
    Result := CallNextHookEx(HookID, nCode, wParam, lParam)
  else if ((wParam = WM_RBUTTONDOWN) or (wParam =
    WM_RBUTTONUP) or (wParam = WM_LBUTTONDOWN)) then
  begin
    GetCursorPos(P);
 
 
 
 
      if (nom = 'weber') and (Pos('Internet Explorer_', GetClassNameEnh(WindowFromPoint(P))) <> 0) and ((wParam = WM_RBUTTONDOWN) or (wParam =
      WM_RBUTTONUP)) then begin
 
 
 
 JE CHERCHE à savoir sur quelle tform est weber ( twebbrowser ) 
Et pouvoir faire 
tform.menupopup.popup(....);
 
 
 
 
      Result := HC_SKIP;
 
    end
    else
      Result := CallNextHookEx(HookID, nCode, wParam, lParam);     
 
    if (Pos('Internet Explorer_', GetClassNameEnh(WindowFromPoint(P))) <> 0) and ((wParam = WM_RBUTTONDOWN) or (wParam =
      WM_RBUTTONUP)) then  begin
 
 
      Result := HC_SKIP;
                 end
 
 
   else if GetClassNameEnh(WindowFromPoint(P)) = 'TCoolBar' then
    begin
 
      Result := HC_SKIP;
    end
    else
      Result := CallNextHookEx(HookID, nCode, wParam, lParam);
  end
  else
    Result := CallNextHookEx(HookID, nCode, wParam, lParam);
end;

Merci

**Pierre Castelain** · 04/02/2005, 20h25

Si tu as le handle de ta fenêtre, tu dois pouvoir parcourir toutes les fenêtres de l'application et comparer les handles

**remixtech** · 04/02/2005, 20h33

Oui c'est vraie, mais en faite j'ai pas le handle
J'ai juste un tpoint ...

Ca me désespere ...

Merci d'avance

**Pierre Castelain** · 04/02/2005, 20h38

Envoyé par remixtech

Bonjour,

Comment accéder à un tform de son application juste avec le handle....

Merciii

Alors pourquoi dire que tu as le handle ?

**remixtech** · 04/02/2005, 20h49

En faite je l'avais au début, sur mon ancien hook, enfin je pensais l'avoir.

Mais le problème c'est que j'avais trop de hook. un par Tform dynamique créé et c'était un gros bordel...
Donc j'ai voulu centralisé sur un hook mais je n'arrive pas à trouver le handle du composant qui se trouve en dessous du pointeur enfin plutot la tform....

je suis désolé ...

**lil_jam63** · 04/02/2005, 21h01

En utilisant WindowFRomPoint(), tu peux récuperer le handle de la fenêtre ainsi que les composants graphiques qui la compose.
Plus d'infos.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  point: TPoint;
  hfenetre: HWND;
  ClassName : Array[0..255] of Char;
begin
  getCursorPos(point);
  hfenetre := WindowFRomPoint(point);
  GetClassName(hfenetre,classname,SizeOf(ClassName)); 
showMessage('Handle de la fenêtre : '+intToStr(hfenetre)+#13+#10+'ClassName : '+Classname');
  ...
end;

PS: Je n'ai pas testé.

**remixtech** · 04/02/2005, 21h12

Merci....
Beaucoup ca fonctionne

Merci encore c'est génial !!!

**lil_jam63** · 04/02/2005, 21h14

Oublie pas le tag "résolu"

**remixtech** · 04/02/2005, 22h13

Hargh ca marche pas si bien que ca ...
Les handles sont différents ...

Je fais un showmessage(inttostr(handle));
A la création d'une fiche
et la fonction que tu m'as donné me donne un autre handle...
Je regarde ce que ca peut être...

Merci quand même.

**lil_jam63** · 04/02/2005, 22h22

c'est normal que le handle diffère si ta fiche est recréé, à chaque création un handle est attribué mais pas forcement le même, ta fiche aura le même pendant toute la durée de sa "vie" mais dès qu'elle est détruite et recréé elle en reprend un autre, pareil pour tous les composants qui la compose.

**remixtech** · 04/02/2005, 22h36

Non non

Je veux dire que le handle de la fiche et du webbrowser est différent du handle donné , le classname me donne _InternExplorerServer
Il faut que je vois comment je peux récupérer ca...
Si vous avez une idée

merci

**remixtech** · 04/02/2005, 22h37

Une petite idée :

Le parent du twebbrowser c'est Tform ? non
Y'a pas moyen de trouver le parent avec les api ?

Autre solution :
Le hook ne peut pas dire d'ou ca vient ?

Merciii

**remixtech** · 04/02/2005, 22h46

C'est bon

C'est juste que c'est le parent du parent du parent
c'est un controle compliqué

new := GetParent(hfenetre);

new := GetParent(new);
new := GetParent(new);
showmessage(inttostr(new));

Merci