SetMainObjectOID (TObserverController)

Version du 28 février 2020 à 18:46

procedure setMainObjectOID(const iOID:TOID);

Cette méthode peut être utilisé pour positionné l'objet source de l'observeur.

Exemple :

Pour synchroniser un observateur (dsObject2) avec sa source (dsObject1) dans une interface de saisie :

object testwfclassea: TL5FormContainer

  .....

  object DsObject1: TDsObject
    ClassName = 'WFClasseA'
    OrderBy = 'unCode'
  end
  object DataSource1: TDataSource
    DataSet = DsObject1
  end
  object DsObject2: TDsObject
    ClassName = 'TWFClasseAObserver'
    MinBufferSize = 0
  end
  object DataSource2: TDataSource
    DataSet = DsObject2
  end
  object Invoker1: TInvoker
    ClassName = 'TWFClasseAObserver'
    MethodName = 'setMainObjectOID'
    ParamIns = <
      item
        Index = 0
        ParamName = 'iOID'
        ValueType = ivkvtBookMark
        Control = DataSource1
      end>
    Triggers = <
      item
        Control = DsObject1
        EventStyle = evsOnDataSetAfterScroll
      end>
    DataSource = DataSource2
    FormAfterModal = False
    FormSetOid = True
  end
end

Voir aussi :