type

TdataEvent = procedure( : integer) of object;

TStarEvent = procedure(a, b : integer) of object;

TStopEvent = procedure(c, d : integer) of object;



Ttest1 = class(Tcomponent)

private

FOnStar : TStartEvent;

FOnStop : TStopvent;

FOndata : TdateEvent;

.

.

public

.

.

published

property OnStart : TStartEvent read FOnStart write FOnStart;

property OnStop : TStopEvent read FOnStop write FOnStop;

property Ondata : TdataEvent read FOnData write FOnData;

end;



type

Ttest2 = class

private

Ftestdata : Ttest1;

public

function sample1(a, b:integer): integer; stdcall;

function sample2(a, b:integer): integer; stdcall;

function sample3(a, b:integer): integer; stdcall;

end;



.

.

머대충 이런식의 클레스가 정의대있구...

프로퍼티나...함수등등의 것은 제가 나름데로 책보구하겠는데



질문이 머냐면...이밴트발생시키는 부분에 대해서거든요.

이것을 이용하는...소스에서..



test1에서 test2를생성해서 사용하는데..



test2에있는..함수에서 값이변경되서 왔을때

test1에있는 각각의 이밴트가 발생되게 하고싶거든요...



sample1에값에 변경되서 왔다라면...onstart

sample2에값에 변경되서 왔다라면...onstop

sample3에값에 변경되서 왔다라면...ondata 이밴트를 발생하게..

..

머..제가지금...먼소릴하는건지...

방식이 맞는지 틀리는지도 잘모르겠습니다.



그래도 아무말씀이나...좋으니...

도움좀 주세요.

감사합니다.