ExecuteForm (rtl)

De Wiki1000
Procedure ExecuteForm(const iFormName:string; const iClassName:string; const iOID:string; iParameter:variant; iInsertMode:Boolean);

Cette procédure ouvre un écran.

iFormName Nom de l'écran à exécuter.
iClassName Nom de la classe de l'objet identifié par iOID.

Si ce nom de classe est omis l'identifiant doit correspondre au dataset principal de l'écran, sinon un dataset correspondant est rechercher lors de l'ouverture de l'écran.

iOID Identifiant d'objet sur lequel ouvrir l'écran.
iParameter Paramètres à passer.

Les paramètres sont passés sous forme d'une interface IParameter, cette interface peut être obtenu sur une forme par la propriété IParameter.

iInsertMode Ouvrir l'écran en mode insertion.


Exemple

//Procedure AfficherPiece;
begin
  if assigned(PieceFactEnCours) then
   begin
    if PieceFactEnCours.estAvoir 
     then ExecuteForm('egescom_avoirfinfour.dfm','',PieceFactEnCours.oid,NULL,false)
     else ExecuteForm('egescom_saisiefactachat.dfm','',PieceFactEnCours.oid,NULL,false);
   end;
end;

Voir aussi:

Développement DSMDéveloppement DSM

Outils personnels