1. ActiveX Type Library의 IActiveFormXEvents에 추가하고자 하는 이벤트 이름으로 메소드(method)를 추가한다.
에를 들어 OnTestEvent를 추가한 경우 ActiveFormProj1_TLB.pas 파일에 자동으로 다음과 같은 항목이 추가된다.

    procedure OnTestEvent; dispid 209;
    FOnTestEvent: TNotifyEvent;
    property OnTestEvent: TNotifyEvent read FOnTestEvent write FOnTestEvent;

2. ActiveFormImpl1.pas에 Event Triger 함수를 작성한다.
procedure TrigerOnTestEvent(Sender: TObject);

procedure TActiveFormX.TrigerOnTestEvent(Sender: TObject);
begin
   if FEvents <> nil then FEvents.OnTestEvent;
end;

3. 이벤트 발생 시켜야 할 시점에 TgigerOnTestEvent함수를 호출하면 이벤트가 발생하게 된다.

4. html에서 이벤트 핸들러 작성하는 방법
<script language="vbscript">
  sub Form1_OnTestEvent()
    //이벤트발생할떄 처리할 내용 구현
  End Sub
</script>
Posted by Gu Youn

댓글을 달아 주세요

  1. 달빛하트 2020.03.31 18:12 신고  댓글주소  수정/삭제  댓글쓰기

    델파이를 잘 모르는 서버쪽 개발자 입니다. 어쩌다 보니 델파이를 혼자 붙들고 있게 되서 ocx를 만들어야 하는데 이벤트 발생이 안되서 뭔가 잘못 만든것 같아 도움이 필요합니다 ㅠㅠ
    연락좀 바랍니다