Handle von Control

[toms]

Hallo

Zitat:

Von der Control-Klasse will ich die 6te Instanz.

Die Controls müssen sich auf der gleichen Child-Ebene befinden, damit FindControlByNumber funktioniert.
Die Mozilla (resp. Firefox) Fenster-Hierarchie ist aber so aufgebaut:

Code:

MozillaUIWindowClass
  MozillaWindowClass 
   MozillaWindowClass 
    MozillaWindowClass 
     MozillaContentWindowClass 
      MozillaWindowClass 
       MozillaWindowClass

Mein WinSpy Tool hat folgenden Code erzeugt.

Delphi-Quellcode:

var
  wndMain, wndChild: HWND;
begin
  wndMain := FindWindow('MozillaUIWindowClass', nil);
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'MozillaWindowClass', nil);
    wndChild := FindWindowEx(wndChild, 0, 'MozillaWindowClass', nil);
    wndChild := FindWindowEx(wndChild, 0, 'MozillaWindowClass', nil);
    wndChild := FindWindowEx(wndChild, 0, 'MozillaContentWindowClass', nil);
    wndChild := FindWindowEx(wndChild, 0, 'MozillaWindowClass', nil);
    wndChild := FindWindowEx(wndChild, 0, 'MozillaWindowClass', nil);
    if wndChild <> 0 then
    begin
      ShowMessage('Window Handle: ' + IntToStr(wndChild));
    end;
  end;
end.