那你就看open方法中的代码调用。(最好的方法是运行起来,打断点、跟踪调试一下就能很好的去了解他的代码了。)
procedure TRelevancyGrid.Open;
begin
if DataSetDocRelevancy.FieldByName('FCUREDITORURL').AsString = '' then
begin
case DocRelevancyType of
CDRTDoc: DoOpenFile;
CDRTBizInfo: DoOpenPrivateContent;
end;
end
else
Edit;
end;