ext object referans

bir class dan screen e event baglamak istiyorum. asagida nasil yaptigim var.

test1.prg ---->

1

2

3

4

5

6

7

8

9

PUBLIC obj1

m.obj1 = CREATEOBJECT("class1")

BINDEVENT(_SCREEN, "RightClick", m.obj1, "RightClick1")

 

DEFINE CLASS class1 AS CUSTOM

  PROCEDURE RightClick1

    WAIT "lib RightClick" windows

  ENDPROC

ENDDEFINE

bu sekilde sorunsuz calisiyor ( simdilik )
ancak bu class1 class ini bir dll den cagirmak istiyorum ve bunu asagidaki gibi yapmaya calistim.

test1.prg ---->

1

2

3

PUBLIC obj1

m.obj1 = CREATEOBJECT("dlllib1.class1")

BINDEVENT(_SCREEN, "RightClick", m.obj1, "RightClick1")

dlllib1.dll ----->

1

2

3

4

5

DEFINE CLASS class1 AS CUSTOM OLEPUBLIC

  PROCEDURE RightClick1

    WAIT "lib RightClick" windows

  ENDPROC

ENDDEFINE

ama olmadi ve "property RightClick1 not found." diye bir hata aliyorum. bir turlu basaramadim. yardimlarinizi bekliyorum.

tesekkurler

vfp9sp2  winxpprosp2

Son düzenleyen, fahrenayt2 (07.05.2008 13:11:01)