Discussion :

[Andry]

Salut à tous.

J'explique mon souci.
Actuellement, je redeveloppe une petite appli que j'utilise au bureau en utilisant le consept POO.
Donc pour simplifier la chose,
- j'ai une classe qui a une propriété PropValue de type String.
- j'ai aussi une fenetre avec un controle TEdit desuus et qui affiche la valeur de PropValue.
Le problème, la valeur de PopValue peut changer plusieurs fois en fonction des calculs effectué au sein de la classe, et il me faut donc raffraichir le TEdit rattaché à cette valeur. Actuellement, la classe et la fiche se trouve dans la même unité donc je peux changer directement la valeur du TEdit.
Or je veux séparer la definition de la classe et de la fiche contenant le TEdit pour une maintenance plus aisée, d'où la question, comment avertir la fiche que PropValue a changer de valeur.

Merci

[cadetill]

Salut

Tu peux faire 2 choses

• Creer un evenement a la nouvelle clase et le lancer ou SetPopValue
• Creer a la nouvelle clase une property TEdit et lui passe

[Andry]

Salut,

Ok. Je vais me renseigner sur les evenements car de toute façon, je dois transformer ma classe en composant.

Merci du tuyau.

[cadetill]

Salut

Pardon pour ma courte reponse, mais je n'avais beaucoup de temps

Voisi un exemple de creation d'evenement et son utilisation

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
63
64
65
66
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TPropValueChange = procedure (OldValue, NewValue: string) of object;
 
  TMaClasse = class(TComponent)
  private
    FPropValue: string;
    FPropValueChange: TPropValueChange;
    procedure SetPropValue(const Value: string);
  public // ou published si tu veux faire un composant
    property PropValue: string read FPropValue write SetPropValue;
    property PropValueChange: TPropValueChange read FPropValueChange write FPropValueChange;
  end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    procedure MaPropValueChange(OldValue, NewValue: string);
  public
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  M: TMaClasse;
begin
  M := TMaClasse.Create(Self);
  M.PropValueChange := MaPropValueChange;
  M.PropValue := 'loooooooooooooool';
  FreeAndNil(M);
end;
 
procedure TForm1.MaPropValueChange(OldValue, NewValue: string);
begin
  Edit1.Text := NewValue;
end;
 
{ TMaClasse }
 
procedure TMaClasse.SetPropValue(const Value: string);
begin
  if FPropValue = Value then Exit;
 
  if Assigned(FPropValueChange) then
    FPropValueChange(FPropValue, Value);
 
  FPropValue := Value;
end;
 
end.

Un evenement doit se definir comme une procedure of object. Pour la reste je crois que c'est "facile", non?

A+

[Andry]

Merci beaucoup Cadetill.
J'avais compris comment créer un evénement mais aujourd'hui, je comprend comment comment le declancher dans la classe.
En faites, ma classe est plus compliqué que celui ennoncé mais je crois que c'est à moi de jouer maintenant.
Si jamais, j'ai encore de problème, je reposterais sur ce fil.

Encore merci