동적으로 이벤트 처리하는 건데요.



MainForm에서 동적으로 이벤트처리하면 잘되는데 Dll 에서 동적으로 생성한 컴포넌트의 이벤트(OnClick)를 처리하려니깐 안되내요.. 한번더 가르침을 부탁합니다.. 글구 메인화면에 추가한 Item(Root)이 안보이네요







library Dll;



uses

SysUtils, Classes, comctrls, forms, Graphics, Dialogs;





{$R *.RES}



procedure Tree1Click;

begin

ShowMessage('ok');

end;







function TreeShow(ParentApplication: TApplication; pForm: Pointer; Form: TForm): Pointer; stdcall;

var

MyTreeNode1, MyTreeNode2: TTreeNode;

begin

//Application := ParentApplication;

Result := TTreeView.Create(Form);

with TTreeView(Result) do begin

Name := 'Tree1';

ParentWindow := TForm(pForm).Handle;

Font.Name := TForm(pForm).Font.Name;

Font.Size := TForm(pForm).Font.Size;

ParentFont := False;

Items.Clear;

Items.Add(nil,'Root');

OnClick := Tree1Click;

end;

end;



exports

TreeShow, FreeTree;

begin



end.