Discussion :

[Pedro]

Salut à tous

J'ai créé une application et une dll. Dans une fonction de cette DLL, je passe le handle d'un composant (button, Form, Panel,etc...) contenu dans l'application mère.

Ca donne ça:

Code de l'application:

Code :

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

1
2
 
  Test(Application.Handle,Panel1.Handle);

Code de la DLL:

Code :

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

1
2
3
4
5
6
 
procedure Test(AppHandle:HWND;ObjHandle:HWND);
begin
  Application.Handle:=AppHandle;
  Panel:=TPanel(FindControl(ObjHandle));
end;

Et Panel est systématiquement à nil...
J'ai contrôlé ObjHandle et il est non vide (<>0)...
Comment ça se fait :

[Clorish]

Quel est le but de ta Dll ??

[sjrd]

Ca ne peut pas fonctionner, car FindControl ne peut trouver que des composants dans l'arborescence de propriétaires (Owner) en partant de Application.

Pour reprendre l'idée de Clorish, si le but est de faire un plug-in contenant un composant visuel, il y a ce tutoriel (qui n'est pas encore référencé dans les tutoriels).

[Pedro]

Salut à tous les deux

Ca ne peut pas fonctionner, car FindControl ne peut trouver que des composants dans l'arborescence de propriétaires (Owner) en partant de Application.

Ben justement, si je mets

Code :

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

1
2
 
  Application.Handle:=AppHandle;

Ca ne marche pas? je lui donne pourtant le TApplication du programme mère...

Pour reprendre l'idée de Clorish, si le but est de faire un plug-in contenant un composant visuel, il y a ce tutoriel (qui n'est pas encore référencé dans les tutoriels).

Oui oui je sais ça, on en avait déjà pas mal discuté de tout ça
Mais c'est précisemment pour développer ma propre méthode... Celle avec les handles et les DLL...

Merci

[Pedro]

Salut
Je viens de lire (et de récupérer ) la page que tu m'as dite et ça m'a bien séduit, le système des interfaces

sjrd: tu verras que ma méthode est beaucoupo moins propre mais ça marche aussi!

[sjrd]

Ca ne peut pas fonctionner, car FindControl ne peut trouver que des composants dans l'arborescence de propriétaires (Owner) en partant de Application.

Ben justement, si je mets

Code :

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

1
2
 
  Application.Handle:=AppHandle;

Ca ne marche pas? je lui donne pourtant le TApplication du programme mère...

Non ça ne fonctionne pas non plus, car le fait d'affecter le Handle ne modifie pas pour autant l'instance. En fait FindControl doit faire qqch dans ce genre ci :

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
function TComponent.FindControl(Hand : THandle) : TWinControl;
var I : integer;
begin
  if (Self is TWinControl) and (TWinControl(Self).Handle = Hand) then
  begin
    Result := TWinControl(Self);
    exit;
  end;
  for I := 0 to ComponentCount-1 do
  begin
    Result := Components[I].FindControl(Hand);
    if Result <> nil then exit;
  end;
end;
 
function FindControl(Handle : THandle) : TWinControl;
begin
  Result := Application.FindControl(Handle);
end;

[Pedro]

OK merci