Событие перестает обратываться , После клика

[IGL]

Обрабатываю в своем компоненте уход мышки из области компонента, причем вместо собития CM_MOUSELEAVE использую

procedure TESoldTreeView.WndProc(var Message: TMessage);
Var
  P : TPoint;
begin
  Case Message.Msg Of
    WM_MOUSEMOVE, WM_NCMOUSEMOVE :
      begin
       inherited;
        if not FMouseInControl then
          if Enabled then
            begin
              FMouseInControl := True;
              SetCapture(Handle);
              if Assigned(FOnMouseEnter) then
                FOnMouseEnter(Self);
            end;
 
        P:= Point(Message.LParamLo, Message.LParamHi);
        if not PtInRect( ClientRect, P ) then
          if FMouseInControl and Enabled and (not Dragging) then
            begin
              FMouseInControl := False;
              if Assigned(FOnMouseLeave) then
                FOnMouseLeave(Self);
              ReleaseCapture;
            end;
      end;
  else
    Inherited;
  end;

Код работает нормально до тех пор, пока я не кликну по компонету. После этого обработка ухода мышки прекрашается. Событий MOUSE_DOWN и тому подобных у меня нет. Может кто-нибудь встречался с пододоной проблемой и может подсказать что делать, что бы событие обрабатывалось в любом случае.

[Rouse_]

а все очень просто - ты посмотри после нажатия кто у тебя является CaptureControl (через GetCaptureControl() )...

[IGL]

Rouse_, по твоему совету проверил, как меняется CaptureControl при нанажити мышки: оказалось, что CaptureControl обращется в nil после отрабоки события WM_LBUTTONDOWN. Проблема решилась установкой SetCapture(Handle) в WM_LBUTTONUP. Спасибо!

[Rouse_]

Всегда пожалуйста.

[jack128]

Цитата IGL @ 01.12.05, 09:59

причем вместо собития CM_MOUSELEAVE использую

а я для забивания гвоздей микроскоп использую.
Зачем использовать столь громоздкий код, если есть специальное сообщений??