怎样在AcitiveX控件中加入MouseMove事件

Question

有。我作的activex控件就有这个事件
是speedbutton的事件
这是代码
procedure TAFXMainForm.SBtnInputMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
var
  TempSBtn: TSpeedButton;
begin
  TempSBtn := (Sender As TSpeedButton);
  If ((X > 5) Or (Y > 5)) And
     ((X < TempSBtn.Width - 5) Or (Y < TempSBtn.Height - 5))  Then
  Begin
    If TempSBtn.Font.Color = clBlack Then
    Begin
      TempSBtn.Font.Color := clBlue;
      TempSBtn.Font.Style := TempSBtn.Font.Style + [fsBold, fsUnderline];
      TempSBtn.Font.Size := TempSBtn.Font.Size + 1;
    End;
  End
  Else
  Begin
    If TempSBtn.Font.Color = clBlue Then
    Begin
      TempSBtn.Font.Color := clBlack;
      TempSBtn.Font.Style := TempSBtn.Font.Style - [fsBold, fsUnderline];
      TempSBtn.Font.Size := TempSBtn.Font.Size - 1;
    End;
  End;
end;

Answer 1

楼上：你是在使用mousemove事件，要是有这个事件我也会用，你基于TPanel类做一个ActiveX控件注意不是VCL控件。如果能加上mousemove事件，也就是注册OCX后控件的mousemove事件可以在Object inspector中看到，兄弟一定将所有的分数双手奉上。

Answer 2

呵呵,真是好意思,一个ACTIVEX中加事件的问题也这样到处叫..

Answer 3

现在没有空给你具体代码..
具体做法是这样:
  在类型库中IXXXEvents 接口中添加一个方法,比如OnMouseMove
刷新让它产生实现代码.映射一个WM_MOUSEMOVE消息函数，
在消息函数中加入
   if Assigned(FEvents) then
       FEvents.OnMouseMove;

Answer 4

楼上，可以告诉我你的OICQ吗？

Answer 5

你还可以到http://www.csdn.net/expert/topic/494/494278.shtm领分，不过最好告诉我你的QQ号码.