Discussion :

[tunizar]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

// Code d’instanciation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
o is object MyClass

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[tatayo]

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

Tatayo.

[tunizar]

Bonjour,
J'obtiens l'erreur suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tatayo]

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

Tatayo.

[Nicolas_Jeanneau]

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

[tunizar]

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

[Ry_Yo]

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.

[tunizar]

Bonjour,
Il faut utiliser OuvreSoeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PROCEDURE OuvertureChat(nParam,nContact)
OuvreSoeur(FEN_Message, nContact)

[tatayo]

Bonjour,

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

Tatayo.

Bonjour,
J'obtient l'erreur suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

Bonjour,
Il faut utiliser OuvreSoeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
PROCEDURE OuvertureChat(nParam,nContact)
OuvreSoeur(FEN_Message, nContact)

J'ai raté un épisode ?

Tatayo.

[tunizar]

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 ?

[tatayo]

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.

[tunizar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
gObjControl = new ClassControl()
gObjControl.ChangingTitle()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)