Handle

Bonjours,
je voudrai savoir comment connaitre le handle de n'importe quel control se trouvant sous le curdeur de la souris, meme si il est en dehors de l'aplication
merci

un petit exemple :

function GetClassNameEnh(const p : TPoint): string;
var
  Handle   : Hwnd;
  ClassName: PChar;
begin
  Handle := WindowFromPoint(P);
  getmem(ClassName, 40);
  windows.GetClassName(Handle, ClassName, 40);
  Result := ClassName;
  Freemem(ClassName);
end;


GetCursorPos(P);
Label1.caption := GetClasseNameEnh(P);

Salut,

si je peux me permettre f0xi : il faut remplacer
Label1.caption := GetClasseNameEnh(P); // "e" en trop à Class par
Label1.caption := GetClassNameEnh(P); auquel cas ça ne marche pas puisque delphi ne saura pas qu'il faut appeler cette fontion (logique puisque le nom de la fonction est mal écrit)


@+
 Matt

---

La paresse est la mère du génie...

Je dirais même plus...

function GetHandle(const p : TPoint): string;
var
  Handle   : Hwnd;
  ClassName: PChar;
begin
  Handle := WindowFromPoint(P);
  getmem(ClassName, 40);
  windows.GetClassName(Handle, ClassName, 40);
  Result := IntToStr(Handle);
  Freemem(ClassName);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var P: TPoint;
begin
  GetCursorPos(P);
  Label1.caption := GetHandle(P);
end;

Ca fait deux fois que tu le postes ce code, f0xi... tu as un peu de mal à le placer, on dirait ?  lol

Merci bcp a tous !

oui ou encore en une ligne :

Label1.Caption:=IntToStr(WindowFromPoint(Mouse.CursorPos));

Question supplémentaire :
Et si le contrôle sous la souris est grisé (enable=false) ?

Jean-Michel