PageControl里显示窗体，窗体里按钮关闭时有时会报异常

Question

  if (sender as TForm).Parent <> nil then
  begin
    TTabSheet((sender as TForm).Parent).free;
    //把关闭的标签页的前一页设为活动页
    pgcMain.SelectNextPage(false);
    abort;
  end;
你确定 sender是TForm类型？？？？？？？(sender as TForm).Parent 是TTabSheet？？？？我怎么觉得Sender是PageControl？

Answer 1

(Sender as TForm).Parent 是TTabSheet
Sender是TForm

Answer 2

打印一下看看 Sender .ClassName

Answer 3

Sender  是TMainForm ？   TMainForm 的parent是什么？  你自己检查一下吧