problem beim erstellen eines API Windows

[EWeiss]

Zitat von 1234588:

vll. hast du bei CreateWindowEX() was falsches uebergeben?

Delphi-Quellcode:

function BassBoxWndThread(glCtrW: PWord): integer;
var
  Msg      : TMsg;
  wClass   : TWndClass;
  MsgReturn: longbool;

const
  BBClassName = 'BassBoxVis';
  BBTitle     = 'BassBox';

begin

  h_Instance := GetModuleHandle(nil);
  with wClass do
  begin
    style         := CS_VREDRAW or CS_HREDRAW or CS_DBLCLKS;
    cbClsExtra    := 0;
    cbWndExtra    := 0;
    hInstance     := h_Instance;
    hIcon         := 0;
    hCursor       := LoadCursor(0, IDC_ARROW);
    hbrBackground := 0;
    lpszMenuName  := nil;
    lpszClassName := BBClassName;
    lpfnWndProc   := @VisualProc;
  end;

  if windows.RegisterClass(wClass) <> 0 then
    ClassRegistered := True;

   glCtrW^ := CreateWindowEx(WS_EX_STATICEDGE,
                            BBClassName,
                            BBTitle,
                            WS_CHILD or WS_VISIBLE,
                            0,
                            0,
                            100,
                            100,
                            BB_VisDataThread.ParentHandle,
                            0,
                            h_Instance,
                            nil);


  if (glCtrW^  <> 0) then

sehe da nichts falsches auf anhieb

gruss Emil