Discussion :

[zveuglou]

salut,
j'ai plusieurs TEdit sur une forme et je veux appliquer la même instruction dans l’événement OnChange pour tous les TEdit.
Merci.

[Papy214]

Comme dirait Marcus: "Je n'vois pas où est le problème"

Il suffit d'affecter le même événement aux différents composants et utiliser TEdit(Sender) comme composant cible.

[zveuglou]

mais moi je veux l'ajouter directement a la classe TEdit, si c'est possible.

[Linkin]

En conception, faire le Onchange sur le premier edit et pour les autres, le choisir dans la liste de choix du onchange.
En exécution:

Code :

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

1
2
 
MonEdit2.OnChange:= MonEdit1.OnChange

Si tu veux faire un composant spécifique, fais déjà un composant qui fonctionne pour un edit et ensuite on t'aidera à corriger.

[zveuglou]

En conception, faire le Onchange sur le premier edit et pour les autres, le choisir dans la liste de choix du onchange.
En exécution:

Code :

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

1
2
 
MonEdit2.OnChange:= MonEdit1.OnChange

Si tu veux faire un composant spécifique, fais déjà un composant qui fonctionne pour un edit et ensuite on t'aidera à corriger.

Merci pour ton aide Papy214.

[Papy214]

avec la méthode ci-dessous, tous les composants TEdit de la TForm déclencheront les 2 événements.

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
 
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
 
  TEdit = class(Vcl.StdCtrls.TEdit)
  public
    procedure Change;override;
  end;
 
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Edit1Change(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TEdit }
 
procedure TEdit.Change;
begin
  inherited;
  ShowMessage('Comportement surchargé');
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  ShowMessage('Comportement hérité');
end;
 
end.