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

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

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

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

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

先定义一个过程
  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

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