Discussion :

[ATHS]

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!

Merci d'avance

[_gtm_]

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).

[ATHS]

Un début de solution :

1 - On définit le message

Code :

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

 const USER_NEWDATA = WM_USER

Je sais il faut utiliser RegisterWindowMessage

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

Code :

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

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);

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 :

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

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;

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

[ATHS]

Merci, pour le principe du pattern observer!

Heureusement, ton explication fait retomber ma migraine.

A+