« 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 —
}}