Message interfenêtre

Bonjour!

Je conçoit actuellemennt un simulateur avionique, celui-ci comprend de nombreux instruments de bord, ceux-ci étant répartit chacun sur une forme.

Lors de l'actualisation des paramètres, je dois mettre à jour les formes affichées uniquement.

J'aimerais pouvoir ajouter des instruments sans devoir modifier la routine qui met à jour les paramètres de vol.

Est-il possible que la routine poste un message, indiquant "MISE A JOUR DES PARAMETRES".

Et les fenêtres instruments affichées, interceptionnent ce message et ce mettent à jour via la lecture de données globales.

Ceci me permettrait de d'ajouter les instruments en incorporants juste la routine de prise en compte du signal.

Faut-il créer un nouveau message et une fonction associée?

J'ai utilisé WM_COPYDATA avec le SystemBroadcastMessage mais cela marche apparament entre applications et pas entre fenêtres d'un même projet!

Une piste me serait utile! :koi:

Merci d'avance

Bonjour,

Ce que tu dois faire, c'est implementer le patter 'observer'. (une recherche sur 'observer design pattern' devrait donner plus d'informations).

En gros, on fait comme ca:

La classe qui gere les mises a jour contient:
- une liste de fenetres a mettre a jour
- une fonction qui appelle fenetre.repaint pour chaque element de cette liste

Quand tu ajoutes un nouvel instrument, tu ajoutes la form contenant cet instrument a la liste mentionnee ci-dessus, et tu l'enleves quand l'intrument est detruit (pour eviter d'appeler repaint sur un objet detruit, ce qui ne manquera pas de te faire une belle exception).

Un début de solution :

1 - On définit le message

Code:

---

const USER_NEWDATA = WM_USER

---

:wink: Je sais il faut utiliser RegisterWindowMessage :lol:

2 - Le code qui va prévenir toutes les fenêtres de l'application :

Code:

---

1 2 3 4

for i:= 1 to Application.ComponentCount-1 do if Application.Components[i] is TForm then SendMessage(TForm(Application.Components[i]).Handle,USER_NEWDATA ,0,0);

---

:lol: La condition visible sera traitée dans la procédure de fenêtre

3 - Pour les fenêtres devant être prévenues, il faut ajouter

Code:

---

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

const USER_NEWDATA = WM_USER   TForm1 = class(TForm) .... private { Déclarations privées } procedure NewData(var msg:TMessage); message USER_NEWDATA ; .... end;   procedure TForm1.NewData(var msg:TMessage); begin .... code à réaliser .... inherited; end;

---

:P YOUPI, CA MARCHE, on peut ajouter des fenêtres sans modifier la routine d'envoi du message

Comment réaliser une classe TForm prenant en compte cette méthode et
pouvant être directement modifiée en conception?

Merci d'avance!

-> __gtm__ : je n'ai pu te lire pendant la rédaction de ce message :?

Merci, pour le principe du pattern observer!

:marteau: Heureusement, ton explication fait retomber ma migraine.

A+