Discussion :

[franckgar]

Salut,

voilà, je voudrais mettre en place un événement OnChange qui serait généré lors de modifications dans mon IHM sur les TEdit, TCheckBox, TComboBox, ....

Je pourrais bien sur utiliser les événements OnChange de chaque contrôle mais ça me demanderai de modifier beaucoup de fenêtre existante (environ 50) et je ne trouve pas la solution super élégante.

Avez vous une idée/solution pour centraliser tout ça ?
merci d'avance
FG

[chaplin]

Idée:

Pour chaque composant que tu cites, faire un descendant qui implémente une interface avec la
méthode OnDataChange dans un premier temps, ensuite passer tous les .pas et .dfm en renommant les classes par leur
descendant implémentant l'interface.

J'essaierai avec un composant, voire l'un après l'autre de façon ittérative sur une copie du projet, d'abord sur une
fiche, puis sur l'ensemble des fiches.

Si cette étape fonctionne, le reste devrait suivre.

EDIT: J'ai donné un nom de propriété, mais il faut raisonner avec des méthodes, c'est une piste.

TCheckbox n'a pas d'événement OnChange.

[franckgar]

Pourquoi pas, mais je devrais quand même modifier toutes mes fiches, et je devrais aussi penser à utiliser cette méthode pour les nvlles.

Je viens de penser à une autre démarche: faire une classe mère commune à toute mes fiches, et tester dans cette classe tous les évènements Windows (avec l'objet TApplicationEvents) pour filtrer ceux qui m'intéressent.
Il suffit alors de savoir qu'elles événements sont générés par mes contrôles TEdit, TCheckBox, TComboBox, .... lors d'un changement pour appliquer mon traitement.

Qu'en pensez vous ?

[chaplin]

Ce mécanisme d'interception des changements de valeurs de champs existe pour tous les contrôles orientés données: TDBEdit, TDBCheckBox, etc ... .

C'est le composant TDatasource qui se charge d'intercepter les événements conçernant il est vrai que les champs d'une table à la fois.

J'ai jamais utiliser le composant TApplicationEvents.

[GoustiFruit]

Tu pourrais aussi t'inspirer de cet article:
http://en.literateprograms.org/Apply...hi)?oldid=2979

[franckgar]

merci pour l'article ... je vais l'étudier de près, mais ça semble correspondre à ce que je voudrais faire.

[chaplin]

En utilisant une interface, on s'affranchit des contraintes liées à l'héritage à savoir, que les composants doivent avoir un ancêtre commun si on veut profiter du polymorphisme.

A partir du moment ou un composant implémente l'interface, il suffirait de parcourir les composants d'une form et de les rajouter dans une liste s'ils implémentent l'interface. Cette liste serait un attribut d'une classe qui détecterait les modifications faites dans l'IHM.

[GoustiFruit]

Pour info, j'avais essayé d'utiliser cette méthode il y a quelques temps mais j'ai buté sur le problème des valeurs numériques, parce qu'il y a toujours des soucis avec les arrondis, du coup les comparaisons sont souvent erronées (même en introduisant une marge d'erreur).

[archonte]

Si tous tes événements OnChange ont un comportement similaire, et surtout, si tous tes TEdit doivent avoir le même gestionnaire OnChange, alors tu peux surcharger la méthode Change de TEdit.

Il suffit de créer une nouvelle unité interception à référencer dans tes fiches : par exemple, je viens de coder ça :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
unit interception;
 
interface
 
uses
stdctrls, sysutils, DateUtils, Dialogs, Controls, Graphics, Classes, Windows;
 
type
  TEdit = class(stdctrls.TEdit)
  private
    fLastText: TCaption;
  public  // les 3 méthodes à surcharger
    procedure Change; override;
    procedure DoExit; override;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
  public
    property LastText : TCaption read fLastText write fLastText;
  end;
 
 
 
implementation
 
procedure TEdit.DoExit;
//
// enregistrement de TEdit.Text lorsque le TEdit perd le focus.
//
begin
  LastText := Text;
  inherited;
end;
 
procedure TEdit.KeyDown(var Key: Word; Shift: TShiftState);
//
// exemple avec la touche ESC : rétablit l'ancienne valeur de TEdit.Text
//
begin
  if Key = vk_Escape then
  begin
    Text := LastText;
    SelStart := length(Text);
    modified := true;
    Change;
  end;
 
  inherited;
end;
 
procedure TEdit.Change;
//
// coloration automatique du texte en rouge si différent de la valeur précédente, sinon en vert !
//
begin
  if modified then
  begin
    if text <> LastText then Font.Color := clRed else Font.Color := clGreen;
  end;
 
  inherited;
end;
 
end.

En plaçant le pointeur sur un TEdit en mode code : il te référence Edit1 - interception.TEdit !!

[franckgar]

cette solution est pas mal aussi .... en tout cas plus simple à mettre en œuvre.

merci à tous