SetMainObjectOID (TObserverController)

De Wiki1000
(Différences 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... »)
 
Ligne 5 : Ligne 5 :
 
'''Exemple :'''
 
'''Exemple :'''
  
<source lang='delphi'>
+
Pour synchroniser un observateur avec sa source dans une interface de saisie :
begin
+
 
end;
+
<pre>
</source>
+
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 :

Version du 28 février 2020 à 17: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 avec sa source 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 :

TObserverController (class)Développement DSM





Whos here now:   Members 0   Guests 0   Bots & Crawlers 1
 
Outils personnels