CreateWindowEx, Parent + Child erzeugen

[schwa226]

Hi,

ich habe da so meine Probleme mit CreateWindowEx.

Ich kann ein Fenster erzeugen, aber ich kann kein Child dazu machen!?

Variante 1:

Delphi-Quellcode:

Procedure CreateWindows;
var
  wa, wb, wc, wd: TWndClass;
  hWindowParent, hWindowChild : Thandle;
  hMyChild : THandle;
begin

  if FindWindow('MyParent','') = 0 then
    begin

      with wa do begin
        lpszClassName := 'MyParent';
        lpfnWndProc   := @MainWndProc;
        Style         := CS_VREDRAW or CS_HREDRAW;
        hInstance     := hInstance;
        hIcon         := LoadIcon(0, IDI_APPLICATION);
        hCursor       := LoadCursor(0, IDC_ARROW);
        hbrBackground := (COLOR_WINDOW + 1);
        lpszMenuName  := nil;
        cbClsExtra    := 0;
        cbWndExtra    := 0;
      end;

      with wb do begin
        lpszClassName := 'MyChild';
        lpfnWndProc   := @ChildWndProc;
        Style         := CS_VREDRAW or CS_HREDRAW;
        hInstance     := hMyChild;
        hIcon         := LoadIcon(0, IDI_APPLICATION);
        hCursor       := LoadCursor(0, IDC_ARROW);
        hbrBackground := (COLOR_WINDOW + 1);
        lpszMenuName  := nil;
        cbClsExtra    := 0;
        cbWndExtra    := 0;
      end;

      Windows.RegisterClass(wa);


  //create main hwnd:
      hWindowParent := CreateWindowEx(WS_EX_TOPMOST Or WS_EX_TOOLWINDOW,
        'MyParent',
        nil,
        WS_POPUP,
        CW_USEDEFAULT, 0,
        0, 0,
        0,
        0,
        hInstance,
        nil);

  Windows.RegisterClass(wb);

  hWindowChild := CreateWindowEx(WS_EX_TOPMOST Or WS_EX_TOOLWINDOW,
    'MyChild',
    nil,
    WS_CHILD,
    CW_USEDEFAULT, 0,
    0, 0,
    hWindowParent,
    0,
    hMyChild,
    nil);

  end;
end;

Hier wird das Parent erzeugt, aber das Handle meines Childs bleibt 0!

Komisch ist auch, wenn ich aus der Prozedure ein Function mache dann gibt mir der Parent auch immer 0!? :wiejetzt:

[Apollonius]

Es gibt diese tolle Funktion GetLastError, mit deren Hilfe man Forenmitglieder mit einer sinnvollen Fehlermeldung beglücken kann. Mir fällt an deinem Code auf, dass du eine WndClass, aber CreateWindowEx verwendest - möglicherweise klappt es mit WndClassEx.

[schwa226]

Nach erzeugen des Parents gibt es keine Fehlermeldung!

Error nach dem Versuch das Child zu erzeugen:

Zitat:

ERROR_CANNOT_FIND_WND_CLASS
1407 (0x57F)

[turboPASCAL]

Füge mal folgendes hinzu:

Delphi-Quellcode:

 //...
      zeromemory(@wa, sizeof(wa)); // <--<<
      with wa do begin
        lpszClassName := 'MyParent';
        lpfnWndProc   := @MainWndProc;
        Style         := CS_VREDRAW or CS_HREDRAW;
        hInstance     := hInstance;
        hIcon         := LoadIcon(0, IDI_APPLICATION);
        hCursor       := LoadCursor(0, IDC_ARROW);
        hbrBackground := (COLOR_WINDOW + 1);
        lpszMenuName  := nil;
        cbClsExtra    := 0;
        cbWndExtra    := 0;
      end;

      zeromemory(@wb, sizeof(wb)); // <--<<
      with wb do begin
        lpszClassName := 'MyChild';
        // ...

[schwa226]

Leider immer noch der gleiche Fehler 1407!

[Apollonius]

Was gibt denn RegisterClass zurück?

[turboPASCAL]

Mach es so:

Delphi-Quellcode:

Procedure CreateWindows;
var
  wa, wb, wc, wd: TWndClass;
  hWindowParent, hWindowChild : Thandle;
  hMyChild : THandle;
begin

  if FindWindow('MyParent','') = 0 then
    begin
      zeromemory(@wa, sizeof(wa));  // <--<<
      with wa do begin
        lpszClassName := 'MyParent';
        lpfnWndProc   := @MainWndProc;
        Style         := CS_VREDRAW or CS_HREDRAW;
        hInstance     := hInstance;
        hIcon         := LoadIcon(0, IDI_APPLICATION);
        hCursor       := LoadCursor(0, IDC_ARROW);
        hbrBackground := (COLOR_WINDOW + 1);
        lpszMenuName  := nil;
        cbClsExtra    := 0;
        cbWndExtra    := 0;
      end;

      zeromemory(@wb, sizeof(wb)); // <--<<
      with wb do begin
        lpszClassName := 'MyChild';
        lpfnWndProc   := @ChildWndProc;
        Style         := CS_VREDRAW or CS_HREDRAW;
        hInstance     := hMyChild;
        hIcon         := LoadIcon(0, IDI_APPLICATION);
        hCursor       := LoadCursor(0, IDC_ARROW);
        hbrBackground := (COLOR_BTNFACE + 1);  // <--<<
        lpszMenuName  := nil;
        cbClsExtra    := 0;
        cbWndExtra    := 0;
      end;

      if Windows.RegisterClass(wa) = 0 then // <--<<
        MessageBox(0, 'Kann Fensterklasse nicht registrieren.', 'MyParent', MB_OK);

      if Windows.RegisterClass(wb) = 0 then // <--<<
        MessageBox(0, 'Kann Fensterklasse nicht registrieren.', 'MyChild', MB_OK);

      //create main hwnd:
      hWindowParent := CreateWindowEx(WS_EX_TOPMOST Or WS_EX_TOOLWINDOW,
       'MyParent',
        '',
        WS_POPUP or windows.ws_visible, // <--<<
        CW_USEDEFAULT, 0,
        100, 100, // <--<<
        0,
        0,
        hInstance,
        nil);

    if hWindowParent <> 0 then // <--<<
      hWindowChild := CreateWindowEx(0, // <--<<
        'MyChild',
        nil,
        WS_CHILD or ws_visible, // <--<<
        CW_USEDEFAULT, 0,
        40, 40, // <--<<
        hWindowParent,
        0,
        hMyChild,
      nil);

  end;
end;

das funkltioniert mit sicherheit.

[schwa226]

Also RegisterClass gibt mir ein Word <> 0 zurück was ja bedeutet das es funktioniert hat, oder?

Jedoch bekomme ich mit GetLastError:

Zitat:

ERROR_FILE_NOT_FOUND
2 (0x2)

Wenn ich

Delphi-Quellcode:

  Windows.RegisterClass(wb);
Showmessage(IntToStr(GetLastError));

  hWindowChild := CreateWindowEx(WS_EX_TOPMOST Or WS_EX_TOOLWINDOW, 
    'MyChild', 
    nil, 
    WS_CHILD, 
    CW_USEDEFAULT, 0, 
    0, 0, 
    hWindowParent, 
    0, 
    hMyChild, 
    nil);

Showmessage(IntToStr(GetLastError));

mache bekomme ich beim ersten Error 2, beim zweiten Error 0 obwohl hWindowChild 0 ist!?

[Apollonius]

GetLastError sagt nichts aus, wenn der Rückgabewert der Funktion Erfolg anzeigt.

[schwa226]

@turboPASCAL:

Zitat:

ERROR_CALL_NOT_IMPLEMENTED
120 (0x78)

Das bekomme ich nach dem CreateWindowEx Parent.
CreateWindowEx Child bleibt bei 1407.

Jetzt habe ich es nocheinmal in einem neuen Projekt versucht.

Beim ersten mal wurde ein Parent erzeugt. Will ich es nun nocheinmal starten bleibt das Parent auf 0!
Last Error auch 0.

Wenn ich mein Programm beende muss ich wa oder sonst etwas anderes deregistrieren. Oder wird das Automatisch beim beenden meiner App gemacht?