Discussion :

[lerorodu51]

Bonjour, j'ai une centaine de spinEdit dans mon programme de test et j'aimerai que tous les events onChange appellent la même procédure.

J'ai commencé par surcharger le composant mais je pense que ma syntaxe n'est pas bonne :

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
type
  TSpinEditPiece = class(TSpinEdit)
  public
    constructor Create(AOwner: TComponent); override;
    procedure Change; override;
  end;
 
constructor TSpinEditPiece.Create(AOwner: TComponent);
begin
  inherited;
end;
 
procedure TSpinEditPiece.Change;
begin
  inherited;
  ShowMessage('coucou');
end;

Pouvez-vous m'éclairer ?

Merci.

[Charly910]

Bonjour,

si tu fais, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Var
  Sp1 :  TSpinEditPiece ;
...
procedure TForm1.FormShow(Sender: TObject);
begin
  Sp1:= TSpinEditPiece.Create(Self) ;
  Sp1.Parent := Self ;
  ...
end;

Ton code fonctionne bien (Ah que Coucou ! )

A+
Charly

PS : je pense que tu peux enlever ton Create qui ne sert pas ?

[tourlourou]

Pourquoi ne pas parcourir la propriété Components de leur Owner (s'il y en a un), et attribuer une procédure commune à leur événement OnChange ?

Code :

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

1
2
3
for i:=0 to Form1.ComponentsCount-1 do
if Form1.Components[i] is TSpinEdit
then TSpinEdit(Form1.Components[i]).OnChange:=MySpinEditOnChange;

Mais ce n'est pê pas aussi simple ?

[guillemouze]

Si ils sont tous dans la meme unité, tu peux simplement redéfinir la classe TSpinEdit (petite astuce de sioux)

Code :

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

1
2
3
4
TSpinEdit = class(Spin.TSpinEdit)
  public
    procedure Change; override;
  end;

Sinon, le plus simple est encore de créer ton propre composant, de l'ajouter à la palette, et de remplacer les spinEdits par le tien (GExperts permet de le faire simplement)