如何把消息接口写成OCX控件的属性?

Question

如何实现把下面这几个消息接口写成OCX控件的属性里
SetSYRecvMessageWnd(nwnd:HWND)
SetSYStartMessage(nMessage:UINT)
SetSYStopMessage(nMessage:UINT)

Answer 1

看下TWinControl的属性
  TKeyEvent = procedure(Sender: TObject; var Key: Word;
    Shift: TShiftState) of object;    property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;
    property OnKeyUp: TKeyEvent read FOnKeyUp write FOnKeyUp;

Answer 2

control.pas按着CTRL键，在类名上点左键。

Answer 3

我这里没有OnKeyDown，但我看有OnKeyPress，可是里面那么多，都要写吗？曾经我照着这些写过，可是编译通不过：
  procedure OnKeyPress(var Key: Smallint); dispid 207;
　TSYCCDActiveFormXOnKeyPress = procedure(ASender: TObject; var Key: Smallint) of object;
  FOnKeyPress: TSYCCDActiveFormXOnKeyPress;
  FOnKeyPress: TSYCCDActiveFormXOnKeyPress;
  property OnKeyPress: TSYCCDActiveFormXOnKeyPress read FOnKeyPress write FOnKeyPress;
  property OnKeyPress: TSYCCDActiveFormXOnKeyPress read FOnKeyPress write FOnKeyPress;
  property OnKeyPress: TSYCCDActiveFormXOnKeyPress read FOnKeyPress write FOnKeyPress;
  property OnKeyPress: TSYCCDActiveFormXOnKeyPress read FOnKeyPress write FOnKeyPress;
  OnKeyPress := KeyPressEvent;
  if FEvents <> nil then FEvents.OnKeyPress(TempKey);

Answer 4

OCX控件？
我没写过，不知道了。有空我再试试。