用Delphi写OCX控件，如何自定义事件？

Question

用Delphi写OCX控件，如何自定义事件？ 

Answer 1

    if FEvents <> nil then FEvents.OnYourEvent();

Answer 2

能否详细点，后面怎么调用成功等等，我试过了外部根本响应不到ocx里面的内容

Answer 3

你又跑这里发贴来了。你就说吧，你是要在Web里调用这个Ocx，还是在其他的CS程序中调用这个OCX

Answer 4

先定义一个过程
    procedure iSwitch1StatusChanged(Sender: TObject);写好内容
procedure TFsFormX.iSwitch1StatusChanged(Sender: TObject);
var
  SwitchState:Boolean;
begin
  if iSwitch1.Checked = true then
  begin
    FSwitchState := true;
  end
  else
  begin
    FSwitchState := false;
  end;  if FEvents <> nil then FEvents.OnSwitchChange;
  if FEvents <> nil then FEvents.OnSwitchChangeState(SwitchState);
end;然后发布你关联的事件
OnSwitchChange
OnSwitchChangeState

Answer 5

其中这两句就转向事件处理了
  if FEvents <> nil then FEvents.OnSwitchChange;
  if FEvents <> nil then FEvents.OnSwitchChangeState(SwitchState);