« SetMainObjectOID (TObserverController) » : différence entre les versions
(Page créée avec « <source lang='delphi'>procedure setMainObjectOID(const iOID:TOID);</source> Cette méthode peut être utilisé pour positionné l'objet source de l'observeur. '''Exemple... ») |
Aucun résumé des modifications |
||
(2 versions intermédiaires par le même utilisateur non affichées) | |||
Ligne 5 : | Ligne 5 : | ||
'''Exemple :''' | '''Exemple :''' | ||
< | Pour synchroniser un observateur (dsObject2) avec sa source (dsObject1) dans une interface de saisie en utilisant un invoker : | ||
end | <pre> | ||
</ | 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 | |||
</pre> | |||
Voir aussi : | Voir aussi : |
Dernière version du 28 février 2020 à 16:50
<source lang='delphi'>procedure setMainObjectOID(const iOID:TOID);</source>
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 en utilisant un invoker :
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 :
{{#if:TObserverController (class)|
{{#if:TObserverController (class)|— TObserverController (class) |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}