目前是这样写的
procedure TMAINFORM.BrokerDocExecute(Sender: TObject);
VAR
form:TPRJBOOKMNG; //这个就是信息中的那个窗体
begin
if DataSetBroker1.DataSet.IsEmpty then
exit;
try
form:=BROKER_INFO.TPRJBOOKMNG.Create(context);
//BROKER_INFO.TPRJBOOKMNG按照编码提示可以出来,但是编译不过
form.ShowModal;
finally
form.Free;
end;
end;