FindWindowEx Logik

[toms]

Hi Sprint,

Danke für deine Antwort!

Aber leider hilft mir dein Code auch nicht weiter. Zudem kann GetWindowText nur den Text von Fenster-Captions
zurückgeben und nicht Controls. (siehe msdn)

Ich poste mal einen allgemeinen Code zu meinem Problem:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  wnd: HWND;
begin
  wnd :=  FindWindow('TAppBuilder', nil); // wnd ist <> 0, alles ok bis jetzt
  wnd :=  FindWindowEx(wnd, 0, 'TControlBar', nil); // wnd ist <> 0, alles ok bis jetzt
  wnd :=  FindWindowEx(wnd, 0, 'TDockToolBar', 'Standard'); // wnd ist immer null, obwohl das Child 'TDockToolBar' existiert!
  if wnd <> 0 then
  begin
      ShowMessage('gefunden');
  end;
end;

Fensterstruktur:

Code:

Klassen Name: "TAppBuilder" | Title: "Delphi 6 - Project1" | Handle: 1966888
  1573686: TControlBar
    2097588: TDockToolBar "Menu bar"
    655736: TDockPanel "Component Palette"
      721300: TComponentPaletteTabControl
        590250: TPanel
        590446: TPageScroller
          655758: TPalette "Palette"
    1769832: TDockToolBar "Custom"
    655980: TDockToolBar "Desktop"
      1245788: TDesktopComboBox "<None>"
        917904: Edit "<None>"
    1049424: TDockToolBar "Debug"
    852428: TDockToolBar "View"
    655802: TDockToolBar "Standard"