ouvrir une fenêtre depuis une classe

Bonjour,
J'ai une classe qui ouvre une fenêtre depuis à partir de son constructeur

Code:

---

1 2 3 4 5

PROCEDURE Constructor() Open(MyForm,DonneGUID) // Faire d'autre traitement ... trace("Fenêtre ouverte")

---

// Code d’instanciation

Code:

---

1 2	o is object MyClass

---

La fenêtre s'ouvre mais le code qui se trouve après

Code:

---

1 2 3

// Faire d'autre traitement ... trace("Fenêtre ouverte")

---

ne s’exécute pas !
comment faire pour qu'il s’exécute ?

Bonjour,
Ouvre() est une fonction bloquante, il faut utiliser ici OuvreSoeur().

Tatayo.

Bonjour,
J'obtiens l'erreur suivante

Code:

---

1 2 3

Vous avez appelé la fonction OuvreSoeur. Le traitement en cours n'est pas celui d'une fenêtre ou d'un de ses champs.

---

Peut-être OuvreFille() alors ?
Sinon il faudra faire autrement...

Tatayo.

Bonjour,

je pense que le code Trace devrait ne s'exécuter que lorsque la fenêtre finit de s'ouvrir soit dans le code de fin d'initialisation de MyForm ...

bon courage,

Nicolas

Bonjour,
c'est ça ce que je cherche le code après l'ouverture de la fenêtre doit s'exécuter en parallèle que l'ouverture de la fenêtre elle même
J'ai essayé une piste c'est d'ouvrir cette fenêtre depuis un Thread, mais j'arrive pas !
tatayo => la OuvreFille() ou même MDIOuvre est idem

Bonjour,

vous pouvez vous inspirer de cet exemple :
http://doc.pcsoft.fr/fr-FR/?3077015&...ead_secondaire

Qui est un extrait du projet exemple : "WD Messagerie instantanée"

Cordialement.

Bonjour,
Il faut utiliser OuvreSoeur

Code:

---

1 2 3

PROCEDURE OuvertureChat(nParam,nContact) OuvreSoeur(FEN_Message, nContact)

---

Bonjour,

Citation:

---

Envoyé par tatayo

Bonjour,
Ouvre() est une fonction bloquante, il faut utiliser ici OuvreSoeur().

Tatayo.

---

Citation:

---

Envoyé par tunizar

Bonjour,
J'obtient l'erreur suivante

Code:

---

1 2 3

Vous avez appelé la fonction OuvreSoeur. Le traitement en cours n'est pas celui d'une fenêtre ou d'un de ses champs.

---

---

Citation:

---

Envoyé par tunizar

Bonjour,
Il faut utiliser OuvreSoeur

Code:

---

1 2 3

PROCEDURE OuvertureChat(nParam,nContact) OuvreSoeur(FEN_Message, nContact)

---

---

J'ai raté un épisode ?

Tatayo.

non, t'as rien raté
je n'ai pas dis que la solution est dans OuvreSoeur mais j'ai dis que l'exemple parle de OuvreSoeur et au début de la discussion j'ai noté que ce n'est pas possible vu l'erreur que j'ai signalé

là j'essaye de passer par Thread et je pense qu'une solution dans ce sens verra le jour ce weekend
à moins que t'as une autre ?

La différence entre ton code et l'exemple (enfin ce que j'en ai vu) est que l'ouverture de la fenêtre se ferait non dans le constructeur de la classe, mais dans un thread d'une fenêtre.
Le constructeur de la classe se "borne" à envoyer un signal à cette fenêtre.
C'est une piste à creuser.

Tatayo.

Bonjour,
C'est ok avec les Thread , ça marche
la solution :
L'ouverture de la fenêtre se fait dans une méthode de la classe (une procédure globale marche mieux)

Code:

---

1 2 3 4 5 6

PROCEDURE ThreadMethode(sThreadName is string) IF WinStatus(::WINDOW_FILE_NAME) = NotFound THEN Open(::WINDOW_FILE_NAME) END ThreadWait(sThreadName,100)

---

Création du thread dans le constructeur du classe

Code:

---

1 2 3

// proc global ThreadExécute(::csThreadSuffix+:ThreadId,threadNormal,ThreadProcGlob,::csThreadSuffix+:ThreadId)

---

ou

Code:

---

1 2 3

// Méthode ThreadExécute(::csThreadSuffix+:ThreadId,threadNormal,ThreadMethode,::csThreadSuffix+:ThreadId)

---

ainsi à partir d'une classe l'ouverture de la fenêtre n'est plus bloquante et il est possible d'agir sur cette fenêtre depuis la classe !!!

Code:

---

1 2 3

gObjControl = new ClassControl() gObjControl.ChangingTitle()

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

PROCEDURE ChangingTitle() Trace("code exécuté après l'ouverture de la fenêtre"+CR+... dbgInfo(dbgTraitement,dbgTraitementEnCours)+CR+... dbgInfo(dbgTraitement,dbgTraitementEnCours)) IF YesNo(No,"Voulez vous agir sur la fenêtre") THEN Info("Réponse oui") MainWindow..Title = "Je suis modifiée par ma classe : "+object..Class ELSE Error("Réponse Non !!!") MainWindow..Title = MainWindow..Name END Info(MainWindow..Title)

---