кнопка BS_OWNERDRAW, WPARAM всегда равен 0

[BLACK_RAIN]

Здравствуйте.
Нужна кнопка с ручной отрисовкой. Ставлю ей стиль WS_CHILD or WS_VISIBLE or BS_OWNERDRAW. Согласно MSDN, родительскому окну должно приходить сообщение WM_DRAWITEM, в котором WPARAM равен идентификатору контрола, а LPARAM это указатель на структуру DrawItemStruct. Ну вы это и без меня прекрасно знаете.
Проблема в том, что это нифига не так. На самом деле в сообщении WM_DRAWITEM, посланного кнопкой, WPARAM равен нуль, а LPARAM не понятно чему.
Хотя в MSDN написано:

wParam

Specifies the identifier of the control that sent the WM_DRAWITEM message. If the message was sent by a menu, this parameter is zero.

function WindowProc1(wnd:HWND; Msg : uint; Wpar:Wparam; Lpar:LPARAM):Lresult; stdcall;
var
  dis : PDrawItemStruct;
  r : TRect;
Begin
  case msg of

    WM_DRAWITEM:
    begin
      if Wpar<>0 then
      begin
         dis := pdrawitemstruct(@Lpar);
         if dis.hwndItem = btn then
         begin
           GetClientRect(dis.hwndItem,r);
           FillRect(dis.hDC, r, GetStockObject(BLACK_BRUSH));
         end;
      end;
    end;

    WM_CREATE:
    begin

      btn := CreateWindow('Button', '',
      WS_CHILD or WS_VISIBLE or  BS_OWNERDRAW,
      0,0,90,90, wnd, 0, hInstance, nil);
    end;

    WM_KEYDOWN:
    DestroyWindow(wnd);

    wm_destroy :
    Begin
      unregisterclass(myclass,hinstance);
      postquitmessage(0);
      Result:=0;
      exit;
    End;

  else Result:=DefWindowProc(wnd,msg,wpar,lpar);
  end;
End;

Если это не правильно, то как тогда делается кнопка с ручной отрисовкой?

[waleri]

Насколько я вижу, у вашей кнопки идентификатор равен нулю, что собственно и получаете в параметре WPARAM.
Пересмотрите параметры CreateWindow().
Кроме того, можете проверить содержимое DRAWITEMSTRUCT - там есть CtlType и CtlID.

[BLACK_RAIN]

Сообщение от waleri

Насколько я вижу, у вашей кнопки идентификатор равен нулю, что собственно и получаете в параметре WPARAM.

А, вот как. Я думал, что они идентификатором хэндл называют Тогда нет вопросов.
И еще я, как обычно, забыл @ дописать. По-этому не работало.