delphi – 无法在设计时单击自定义控件

我正在Delphi XE2中构建一个自定义控件(继承自TCustomControl)(并在我的其他控件中遇到此问题),在设计时,我无法单击它们.我知道它与鼠标捕获有关,捕获鼠标事件并在设计时间内处理它们的方式与运行时间不同,但我不知道如何正确适应这一点.换句话说,在我能想到的许多工作中,我无法确定哪一种是正确的(或最有效的)方式.

我敢肯定必须有一些非常简单的标准,很可能使用ControlStyle或CreateParams但不知道是什么.

在这个特定的控件中(我在这个问题上没有看到模式),我正在捕获包括WM_NCHITTEST和WM_LBUTTONDOWN的消息.在设计时,控件100％处于活动状态,就好像它是运行时一样,而单击时,它则执行运行时代码.

我感觉它在我的命中测试消息处理程序中,所以这是代码(重命名的一些东西)：

procedure TMyCustomControl.WMNCHitTest(var Message: TWMNCHitTest);
var
  P: TPoint;
  Poly: TPoints;
  X: Integer;
  I: TMyCollectionItem;
  Ch: Bool; //Need to improve invalidation
begin
  Ch:= False;
  P:= ScreenToClient(Point(Message.Pos.X,Message.Pos.Y));
  for X := 0 to Items.Count - 1 do begin
    I:= Items[X];
    Poly:= I.Points;
    FMouseIndex:= -1;
    FMouseState:= bmNone;
    if PointInPolygon(P,Poly) then begin //checks if point is within polygon
      FMouseIndex:= X;
      FMouseState:= bmHover;
      Ch:= True;
      Break;
    end;
  end;
  if Ch then Invalidate;
end;

还有我的控件的构造函数(剥离)：

constructor TMyCustomControl.Create(AOwner: TComponent);
begin
  inherited;
  ControlStyle:= ControlStyle - [csDesignInteractive];
end;

if csDesigning in ComponentState then
  Msg.Result := HTCLIENT;