如何关闭父控件self.Parent.Free;??

[roc_fu]

我在一个PageControl,然后再在上面动态建立TableSheet,再建立窗体与TableSheet之上，代码如下
申明:
frmProgramFile : TfrmProgramFile;
pgWinRect: TPageControl;

住窗体创建子窗体的代码:
procedure TfrmMain.btnSendTaskClick(Sender: TObject);
var
tab : TTabSheet;
begin
if findForm('frmProgramFile')=false then
begin
try
tab := TTabSheet.Create(pgWinRect);
tab.PageControl := pgWinRect;
tab.Show;
frmProgramFile := TfrmProgramFile.Create(self);
frmProgramFile.Parent := tab;
frmProgramFile.Align := alClient;
frmProgramFile.BorderStyle := bsNone;
frmProgramFile.Show;
tab.Caption := frmProgramFile.Caption;
except
//....
end;
end;


子窗体想要关闭父控件，也就是上一级的TableSheet
procedure TfrmProgramFile.SpeedButton4Click(Sender: TObject);
begin
{ ClearWindows;
self.Parent.Visible := FALSE;
self.Close;
self.Parent.Free;}
或者:
frmProgramFile.Parent.Free;
end;

上面注释掉的地方也试过，的确能关闭父控件，但关闭之后，必报内存错误，哪位兄弟给指点一下？

[roc_fu]

最可气的是，并非每个页面关闭都报错，随即的，大概有1/2的概率，但页面确实关掉了

[roc_fu]

这个错误又Try...except不掉

[aiirii]

如果是： tab := TTabSheet.Create(pgWinRect);

那你的 tab 不用自己手工删除也可，系统会自动删除它的

要不，你可能要用

PageControl1.Pages[i].Free;
PageControl1.Pages[i] := nil;
试下

[roc_fu]

这是不行的，free那里就抱错了

[freshui]

啊？

[susdj]

PostMessage(Parent.Handle,WM_CLOSE,0,0);

[ly_liuyang]

采用PostMessage的异步处理才能的
需要自定义消息来处理的

_____________________
http://lysoft.7u7.net

[roc_fu]

算了,用了个笨办法搞定了