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>
에를 들어 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>
'Computer > Delphi' 카테고리의 다른 글
| HTML에 문자 추가하기 (154) | 2003.05.09 |
|---|---|
| 그래픽 카드가 RGB or BGR 지원 하는지 체크하기 (153) | 2003.04.28 |
| C의 Union과 비슷하게 Record로 가변 타입 만들기 (158) | 2003.04.24 |
| 메모리 복사하기 (2) | 2003.04.23 |
| 델파이에서 WM_COPYDATA 이용한 데이타 전달 (2) | 2003.04.15 |
| 델파이에서 사용자 정의 메시지 및 프로시져 추가 (2) | 2003.04.15 |
| 프로그램 중복 실행 방지(한번만 실행되게.) (2) | 2003.04.15 |
| 델파이로 프로세스 종료하기 (2) | 2003.04.14 |
| 델파이에서 일반 폼 출력후에 메인폼 출력하기 (2) | 2003.04.14 |
| try,finally,except 처리 (2) | 2003.02.21 |
