【搞定】实现image的热点？**

Jsun2007

我从image继承了一个子类，想实现热点。在delphi里，通过实现CMMouseEnter和CMMouseLeave消息，判断鼠标的移入和移出。但在平台里，定义我从image继承了一个子类，想实现热点。在delphi里，通过实现CMMouseEnter和CMMouseLeave消息，判断鼠标的移入和移出。但在平台里，定义CMMouseEnter和CMMouseLeave的过程，但编译的时候，会报错？请问，能有其它方法实现吗？

alang

重载WndProc方法，在这个方法中对windows消息进行处理

kmtaoyufei

楼主能不能个简单的例子?

alang

Delphi中的例子，其实平台上也是一样的

procedure TDragObject.WndProc(var Msg: TMessage);
var
  P: TPoint;
begin
  try
    case Msg.Msg of
      WM_MOUSEMOVE:
        begin
          P := SmallPointToPoint(TWMMouse(Msg).Pos);
          ClientToScreen(DragCapture, P);
          DragTo(P);
        end;
      WM_CAPTURECHANGED:
        DragDone(False);
      WM_LBUTTONUP, WM_RBUTTONUP:
        DragDone(True);
      { Forms.IsKeyMsg sends WM_KEYxxx messages here (+CN_BASE) when a
        TPUtilWindow has the mouse capture. }
      CN_KEYUP:
        if Msg.WParam = VK_CONTROL then DragTo(DragObject.DragPos);
      CN_KEYDOWN:
        begin
          case Msg.WParam of
            VK_CONTROL:
              DragTo(DragObject.DragPos);
            VK_ESCAPE:
              begin
                { Consume keystroke and cancel drag operation }
                Msg.Result := 1;
                DragDone(False);
              end;
          end;
        end;
    end;
  except
    if DragControl <> nil then DragDone(False);
    Application.HandleException(Self);
  end;
end;

kmtaoyufei

谢谢楼主，结帖。