TPanel을 Base로 하는 ActiveX control을 만들어서 그위에 StringGrid를 두개올려 놓았는데 각각의 grid에서 Double click event를 동적으로 생성 시키려구 하니 "Control "" has no parent Window" Message가 뜨고 해당 Grid의 이벤트가 발생을 하지 않습니다.

해당 그리드의 이벤트를 생성 시킬수 있는 방법좀.....



FDelphiControl := Control as TPanel;

FDelphiControl.OnClick := ClickEvent;

FDelphiControl.OnDblClick := DblClickEvent; <-- Panel Double click enent

FDelphiControl.OnResize := ResizeEvent;





//첫번째 그리드

G_Stock := tadvstringgrid.Create(nil);

with G_Stock do begin

parent := FDelphiControl;

Align := alRight;

DefaultRowHeight := 15;

Width := 120;

OnGetCellColor := g_SGetCellColor;

OnDblClickCell := g_SDblClickCell; <--- 첫번째 grid double click Event

ONGetAlignment := g_SGetAlignment;

end; //with



//두번째 그리드

G_Schedule := tadvstringgrid.Create(nil);

with G_Schedule do begin

parent := FDelphiControl;

Align := alClient;

DefaultRowHeight := 15;

OnGetCellColor := g_MGetCellColor;

end; //with