Discussion :

[NGeVtC87]

Bonjour

Je veux retourner le handle d'une classe Tframe développé en delphi dont le prototype est:

Code :

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

1
2
3
4
5
6
7
8
9
 
         unit TestFrameUnit;
 
         interface
         uses
           Windows, Messages, SysUtils, Variants, Classes;
 
         type
            TTestFrame = class(TFrame)

J'ai utilisé la fonction Windows FindWindow(Pchar('TTestFrame'), PChar('TestFrame') mais ça me retourne un handle = 0. J'ai voulu comprendre le problème en utilisant les fonctions GetClassName et GetWindowText au niveau de la frame que je cherche

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TTestFrame.procTest;
var
  Title, ClassName: array [0..255] of Char;
  hwd : THandle;
begin
   GetWindowText(self.Handle, Title, 255); // Title retourne ''
  GetClassName(self.Handle, ClassName, 255);  //ClassName retourne 'TTestFrame'
  hwd := FindWndow(Pchar(ClassName),Pchar(Title)) // hwd =0;
end;

Pouvez vous m'indiquer pourquoi le paramètre WindowName de ma frame est nulle (Title ='') et si vous avez une solution s'il vous plait pour remédier à ce problème.

Ce code n'est qu'un test. Mon objectif est de retrouver le handle de la frame à partir d'une autre application (C++) pour pouvoir envoyer des messages (SendMessage et WM_COPYDATA) mais si ça ne passe pas au niveau de l'application elle même ça va être difficile de faire la communication entre plusieurs.

Merci

[Andnotor]

Pouvez vous m'indiquer pourquoi le paramètre WindowName de ma frame est nulle (Title ='') et si vous avez une solution s'il vous plait pour remédier à ce problème.

Le texte récupéré par GetWindowText correspond au Caption sous Delphi. Cette propriété n'est pas publiée au niveau du TFrame ; elle est vide.

Pour la remplir du nom du composant :

Code :

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

1
2
3
4
5
6
7
8
9
10
TTestFrame = class(TFrame)
  protected
    procedure SetName(const Value: TComponentName); override;
  end;
 
procedure TFrame13.SetName(const Value: TComponentName);
begin
  inherited;
  Caption := Value;
end;

J'ai utilisé la fonction Windows FindWindow()...

FindWindow ne va pas le faire sur un TFrame, ce n'est pas une fenêtre de premier niveau. Il faudra d'abord la trouver cette fenêtre (FindWindow) puis parcourir ses composants à coup de FindWindowEx.

[Paul TOTH]

en effet

Retrieves a handle to the top-level window whose class name and window name match the specified strings. This function does not search child windows.

if faut utiliser la MainForm pour cela

[NGeVtC87]

Merci PAUL TOTH et Andnotor pour votre réponse. C'était bien le problème. J'ai en effet pas pris en compte le fait TFrame n'est pas le composant de niveau 1 et que c'est plutôt en passant par la TForm. Ce qui permet d'accéder aux composants.

[Andnotor]

La MainForm ou créer une fenêtre message-only dédiée à cette tâche que tu retrouves ensuite par FindWindowEx(HWND_MESSAGE, 0, 'MyWindowClass', nil).