PageControl控制多页面浏览时 EmBeddWB被关闭掉 Sheet的handle如何取得(100分)

procedure TForm1.EmbeddedWBCloseQuery(Sender: TObject;
var CanClose: Boolean);
var
i: integer;
Sheet: TdxTabSheet;
begin

for i := PageControl.PageCount-1 downto 0 do
begin
Sheet := PageControl.Pages;
if (Sheet.Handle = Sender) then
begin
Sheet.Parent := nil;
//if assigned(OnSheetStateChange) then OnSheetStateChange(Sheet, ssDestroy);
Sheet.Free();
end;
end;

end;