CreateWindowEx, Parent + Child erzeugen

[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';
        // ...