【搞定】如何从桌面上的双击一条新闻之后直接进入新闻公告的详细页**

YZYHZ

如何把功能调用时传过去的参数取出来？

然后在FORMSHOW时使用 SetViewMode 方法。

lisb

取参数
unit MainForm;

interface

uses
  Business.System, Business.Forms, Business.Model, Business.Data,RSDTGLInfo,
  RelevancyLib,CommonFunctionLib,Business.Model.Flow,Business.Model.org;

type
  TMainForm = class(TForm)
    DocView1: TDocView;
    TabSheet2: TTabSheet;
    DocView2: TDocView;
    FuncBroker1: TFuncBroker;
    InfoBroker1: TInfoBroker;
    dsbMaster: TDataSetBroker;
    procedure BizFormShow(Sender: TObject);
  private
    {private declarations}
    function GetFunc: TRSDTGLFunc;
  protected
    Fgoha: string;
  public
    {public declarations}
    constructor Create(Acontext:Tcontext);
    property Func: TRSDTGLFunc read GetFunc;
  end;

implementation

constructor TMainForm.Create(Acontext:Tcontext);
begin
  inherited;
  Fgoha := '';
end;

function TMainForm.GetFunc: TRSDTGLFunc;
begin
  Result := Context.GetParentContext(BizSys.IL_FUNC).Owner as TRSDTGLFunc;
end;

procedure TMainForm.BizFormShow(Sender: TObject);
begin
  Fgoha := Func.Parameters;
  if Fgoha <> '' then
  begin
    TSqldataset(dsbMaster.dataset).sqlfiltered := False;
    TSqldataset(dsbMaster.dataset).sqlfilter := 'goha = '''+Fgoha+'''';
    TSqldataset(dsbMaster.dataset).sqlfiltered := True;
  end;
end;

end.

SetViewMode是什么意思？

YZYHZ

SetViewMode 这时新闻公告（任务中心）中，设置详细和列表的一个。

上次在我们这儿调试，这个一直没出来

我想根据调用传递的参数来判断，然后用SetViewMode  这个方法来切换。

YZYHZ

成功谢谢。

procedure TMAINFORM.BizFormShow(Sender: TObject);
begin
  FGUID := Func.Parameters;
  IF FGUID <> '' THEN
    SetViewMode(TViewMode.vmDetail);
  dsbTask.DataSet.Open;
  ReSetSqlFilter;
end;