procedure TfrmOwnerRightReg.pgctl1Change(Sender: TObject);
begin
if pgctl1.ActivePage = tabXXTable then
begin
→ fraXXView1.ShowXXTable(dbeditXXID.Text);//运行到这里 此时dbeditXXID.Text=1 F7跟踪进去
end;
end;
---
→procedure TfraXXView.ShowXXTable(XXID: string);//结果XXID 居然显示'' 导致下面代码不能正常执行
begin
……