Moin DPler ,
ich versuche gerade an das Handle von einer Control-Instanz(so wie Button1,Button2) in einer anderen Anwendung zu kommen.
Zuerst hole ich das Handle vom Fenster:

markieren

Delphi-Quellcode:

var H1, H2: HWND;
...
H := FindWindow('MozillaUIWindowClass',nil);

(Das funktioniert noch)

Und dann versuche ich das Handle von einer Control-Instanz zu bekommen
(Fenster-Klasse = MozillaUIWindowClass, Control-Klasse = MozillaWindowClass)
Von der Control-Klasse will ich die 6te Instanz.

Dafür habe ich diese Funktion im Swiss Delphi-Center gefunden:

zusammenfalten · markieren

Delphi-Quellcode:

function FindControlByNumber(hApp: HWND; ControlClassName: string; ControlNr: Word = 1): HWND;
var
  i: Word;
  hControl: HWND;
begin
  Result := 0;
  if IsWindow(hApp) then
  begin
    Dec(ControlNr);
    hControl := 0;
    for i := 0 to ControlNr do
    begin
      hControl := FindWindowEx(hApp, hControl, PChar(ControlClassName), nil);
      if hControl = 0 then
        Exit;
    end;
  end;
  Result := hControl;
end;

Aufruf:

markieren

Delphi-Quellcode:

H2 := iFindControlByNumber(H1,'MozillaWindowClass',6);
  if H2 <> 0 then ShowMessage('Control gefunden');

Die MsgBox erscheint aber nie.
So funktioniert es komischerweise:

markieren

Delphi-Quellcode:

H2 := iFindControlByNumber(H1,'MozillaWindowClass',1);
  if H2 <> 0 then ShowMessage('Control gefunden');

Nun, ich will aber die 6te Instanz, nicht die erste^^
Hoffe jemand hat eine Lösung oder wenigstens eine Idee.
mfg, Jeopardize

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:

markieren

Code:

MozillaUIWindowClass
  MozillaWindowClass
   MozillaWindowClass
    MozillaWindowClass
     MozillaContentWindowClass
      MozillaWindowClass
       MozillaWindowClass

Mein WinSpy Tool hat folgenden Code erzeugt.

zusammenfalten · markieren

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.

Danke erstmal, ganz schön kompliziert.
Das macht es recht schwer den ich hatte vor eine Funktion zu schreiben die immer das Handle des Controls zurückgibt. Aber dann muss ich das wohl anders lösen.

EDIT: WinSpy funktioniert super, echt praktisch

Schon habe ich das nächste Problem:

zusammenfalten · markieren

Delphi-Quellcode:

function GetWindowLeft(Window: HWND): Integer;
var Place:TWindowPlacement;
begin
  Place.Length:=SizeOf(TWindowPlacement);
  GetWindowPlacement(Window,@Place);
  result := Place.rcNormalPosition.Left;
end;

function GetWindowTop(Window: HWND): Integer;
var Place:TWindowPlacement;
begin
  Place.Length:=SizeOf(TWindowPlacement);
  GetWindowPlacement(Window,@Place);
  result := Place.rcNormalPosition.Top;
end;

Diese Funktionen liefern nicht die Position vom Control auf dem Bildschirm, sondern offensichtlich nur Abstand von der nächst-höheren Instanz weg. Gibts da ne bessere Möglichkeit?

EDIT: Habe es selbst gefunden, wenn es jemand wissen will^^:

markieren

Delphi-Quellcode:

 GetWindowRect(Handle,TRect);
X := TRect.Left;
Y := Trect.Top;