안녕하세요 ^^

전에 질문해서 용일님 답변을 들었지만, 무슨 소린지 못 알아듣겠더군요 -_-;
에 이것저것 뒤져봐서.. 다음과 같이 했습니다.

View > Type Library 에서 interface 를 찾아 New property 로 정해주고, Long 으로 타입을 설정했습니다. 그리고 다음과 같이 코딩했습니다:

function TfrmMain.Get_OperationMode: Integer;
begin
        case OperationMode of
                omShow: Result := 0;
                omShop: Result := 1;
                omMake: Result := 2;
                else
                        Result := 3;
        end;
end;

procedure TfrmMain.Set_OperationMode(Value: Integer);
begin
        showMessage('받았당!!-_-');
        case Value of
                0: OperationMode := omShow;
                1: OperationMode := omShop;
                2: OperationMode := omMake;
                else
                        OperationMode := omNone;
        end;
end;

그리고 htm 파일의 object 태그 안에 다음을 삽입했습니다.

<param name="OperationMode" value="1" valuetype="data">

근데 받았당!! 이란 메시지도 뜨지 않고, OperationMode 프로퍼티 값을 변경해주는 함수도 호출되지 않는 것 같습니다.

제가 뭘 잘못하고 있는 걸까요? T.T
제가 잘못한 점이라던지 집히는 점이라던지 있으면 답변 주세요.

계속 질문만 올려서 죄송합니다만, 이런쪽엔 왕 초보인지라 ^^;