Ajouter un Evenement sur des composants appartenant à des form differentes

Version imprimable

Salut,

Voici mon problème: En m'inspirant de la FAQ, je souhaitais autoriser uniquement la saisie des chiffres dans mes TEdit en utilisant ce code:
Code:

1 2 3 4 5 6 7 8 Procedure SelectionNumeriqueOnEdit(Sender: TObject;var Key: char); Begin If not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; if Key = DecimalSeparator then if Pos(DecimalSeparator, (Sender AS TEdit).Text) <> 0 then Key := #0; End;
Qui fonctionne nickel si j'écris ma procédure dans l'unité qui contient mon TEdit.

Mais en plaçant cette procédure (en public) dans une unité globale, et en tentant, pour chaque form, t'utiliser findcomponent (et IS TEDit) pour appliquer cette procédure à tous mes évènements OnKeyPress de mes Edits, ça ne passe pas.

Même si j'execute ce code sur un seul de mes Edit (qui est sur Form1 par exemple):

Code:

Edit1.OnKeyPress:= TGlobale.SelectionNumeriqueOnEdit;

j'ai un message d'erreur:

Code:

[Erreur]E2009 Types incompatibles : 'pointeur de méthode et procédure normale'

Quelqu'un saurait-il comment affecter ma procedure à tous mes Edits, quelque soit leurs form sur laquelle ils se situent?

Merci pour tout,

A+.

12/04/2007, 13h49
ShaiLeTroll

Essaye

Code:

class Procedure TStandardEvent.SelectionNumeriqueOnEdit(Sender: TObject;var Key: char);

Salut,

Je vois pas trop l'interet de la manoeuvre mais bon moi je ferai un truc comme ca

un singleton appele Global dans un unite pour lui tout seul

voici l'interface

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
type
  TGlobal = class
  private
    FFormList: TList;
    procedure TraitementEditForm(AForm: TForm);
    procedure SetEventToEdit(const Edit: TEdit; const E: TKeyPressEvent);
    procedure KeyPress(Sender: TObject;var Key: char);
  public
    constructor Create;
    destructor destroy; override;
    procedure AddForm(AForm: TForm);
    procedure RemoveForm(AForm: TForm);
  end;
 
function Global: TGlobal;

et son implementation

Code:

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
 
var
  GGlobal: TGlobal = nil;
 
function Global: TGlobal;
begin
  if not Assigned(GGlobal) then
    GGlobal := TGlobal.Create;
  Result := GGlobal;
end;
 
 
{ TGlobal }
 
procedure TGlobal.AddForm(AForm: TForm);
begin
  FFormList.Add(AForm);
  TraitementEditForm(AForm);
end;
 
constructor TGlobal.Create;
begin
  FFormList := TList.Create;
end;
 
destructor TGlobal.Destroy;
begin
  FFormList.Free;
  inherited;
end;
 
procedure TGlobal.KeyPress(Sender: TObject; var Key: char);
begin
   Showmessage('test'); //pour test
   //ta procedure ici
end;
 
procedure TGlobal.RemoveForm(AForm: TForm);
begin
  FFormList.Remove(AForm);
end;
 
procedure TGlobal.SetEventToEdit(const Edit: TEdit; const E: TKeyPressEvent);
begin
  Edit.OnKeyPress := E;
end;
 
procedure TGlobal.TraitementEditForm(AForm: TForm);
var
  i: integer;
  c: TControl;
begin
  for i := 0 to AForm.ControlCount - 1 do
  begin
    c := AForm.Controls[i];
    if c.InheritsFrom(TCustomEdit) then
      SetEventToEdit(c as TEdit, KeyPress);
  end;
end;

ensuite pour utiliser ca il suffit de faire sur la form que tu veux traiter :
dans son evenement OnCreate il suffit de taper:

Code:

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Global.AddForm(Self);
end;

ceci traite tous les Edit de la form et associe l'evenement KeyPress

evidemment ce code peut être enrichi par exemple en traitant d'autre evenement

voila jespere que c'est ce que tu veux

12/04/2007, 14h18
Gilbert Geyer

Citation:

Edit1.OnKeyPress:= TGlobale.SelectionNumeriqueOnEdit;

Moi j'aurais essayé de faire de façon similaire à la gestion d'événements déclenchés par un Edit que l'on aurait créé de façon dynamique ce qui aurait abouti à la ligne de code Edit1.OnKeyPress:=TGlobale.EditBaseKeyPress; dans les unités autres que la globale. EditBase étant le nom d'un Edit de la fiche-globale, et EditBaseKeyPress celui de la procédure TFormeGlobale.EditBaseKeyPress(Sender: TObject; var Key: Char);
Ensuite j'aurais essayé si cela marche :
- d'abord en laissant la déclaration de cette procedure qui figure dans le type TFormeGlobale à la place que lui assigne automatiquement Delphi,
- et ensuite en déplaçant cette déclaration dans la rubrique des Déclarations publiques.
12/04/2007, 14h26
TicTacToe

Salut

Citation:

Envoyé par padawan

j'ai un message d'erreur:
Code :

[Erreur]E2009 Types incompatibles : 'pointeur de méthode et procédure normale'

Bien que les procédures soit définie avec le même typage, une procédure hors classe, et une procédure dans une classe (donc une méthode) ne sont pas du même type. (le 'of object' précise qu'il attend une méthode et non une procédure indépendante).

Il faut que ta procédure soit définie dans une classe.
- soit dans une classe accessible depuis partout (l'exemple cité visiblement)
- soit dans une form ancêtre à toutes tes formes
12/04/2007, 14h38
PadawanDuDelphi

Tout d'abord merci de vous être interesser à mon problème:

@ShaiLeTroll:
j'ai tester ta méthode, mais j'ai reçu un message d'erreur:

Code:

Le projet SimalimAC.exe a déclenché la classe d'exception EInvalidCast avec le message 'Transtypage de classe incorrect'.

Apparamment il n'aime pas mon "sender as TEdit".... quand je veux entrer un séparateur décimal.

@Kaféine:

Citation:

Je vois pas trop l'interet de la manoeuvre mais bon moi je ferai un truc comme ca

Le but de la manoeuvre c'était de ne pas réécire pour mes 20 fiches la procédure OnKeyPress. Ton idée de créer une unité globale qui gère la création et la destruction des fiches du projet est intéressante, mais je crois que ça apporterait autant de changement (Show, ShowModal...), non ?

@Gilbert Geyer:
Désolé, si je déplace la déclaration, Delphi devient fou... :aie:

@TicTacToe
Effectivement, mon but était d'accéder à cette procédure depuis une class "commune", parceque reprendre tout l'héritage de mes formes c'était pas dans mes projets à court terme... :mrgreen:
Parceque si je devais repartir à zéro j'aurais creer un composant descendant de TEdit ayant cette fonctionnalité...Mais bon, le projet est trop avancé et trop en retard pour tout refaire.

A+.
12/04/2007, 14h42
Kaféine

Citation:

Le but de la manoeuvre c'était de ne pas réécire pour mes 20 fiches la procédure OnKeyPress

Ok monsieur manque de courage :mrgreen:

Citation:

Ton idée de créer une unité globale qui gère la création et la destruction des fiches du projet

heu je gere pas la destruction et creation des fiches
j'ajoute juste la fiche en cours a mon objet global et je le fais lors de la creation de la fiche en cours cest tout

J'ai vite vérifié et cela marche.

Dans l'unité Globale liée à une 1ère Form j'ai mis le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TfrmTraceCourbe.edXKeyPress(Sender: TObject; var Key: Char); //Procedure SelectionNumeriqueOnEdit(Sender: TObject;var Key: char); Begin If not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then Key := #0; if Key = DecimalSeparator then if Pos(DecimalSeparator, (Sender AS TEdit).Text) <> 0 then Key := #0; End; procedure TfrmTraceCourbe.Button1Click(Sender: TObject); begin Form3.show; end;
... et dans une unité secondaire liée à ma Form3 le code :
Code:

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 unit uSecondaire; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm3 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var Form3: TForm3; implementation {$R *.DFM} uses uTraceCourbe2; procedure TForm3.FormCreate(Sender: TObject); begin Edit1.OnKeyPress:=frmTraceCourbe.edXKeyPress; end; end.
... suffit de remplacer les noms de mes gadgets par ceux des tiens et cela devrait également marcher ailleurs (si ça marche sous D5 ça doit marcher ailleurs)

J'ai fait l'essai car je suis friands des trucs qui permettent d'économiser des lignes de code.

P.S : Il n'a même pas été nécessaire de déplacer la déclarartion de ma procédure procedure edXKeyPress(Sender: TObject; var Key: Char); dans la rubrique des Déclarations publiques.

12/04/2007, 14h48
PadawanDuDelphi

Ok, j'avais pas compris le code...Je vais le tester de suite alors.

Citation:

Ok monsieur manque de courage

Ouais, je voulais faire le fainéant (on approche du WE).
12/04/2007, 14h51
Kaféine

voici le code complet si tu veux
12/04/2007, 14h53
Gilbert Geyer

Comme ça bouge vite ici, voir mon message de 14h47 : code simple et qui marche.
12/04/2007, 14h55
Kaféine

Citation:

Envoyé par Gilbert Geyer

Comme ça bouge vite ici, voir mon message de 14h47 : code simple et qui marche.

effectivement il existe plusieurs solution pour traiter le probleme
mais je trouve que le mien est plus simple a maintenir ou a enrichir ;)
12/04/2007, 15h00
TicTacToe

Citation:

Effectivement, mon but était d'accéder à cette procédure depuis une class "commune", parceque reprendre tout l'héritage de mes formes c'était pas dans mes projets à court terme...
Parceque si je devais repartir à zéro j'aurais creer un composant descendant de TEdit ayant cette fonctionnalité...Mais bon, le projet est trop avancé et trop en retard pour tout refaire.

:D
pas forcément en plus de tout parser manuellement.
1. Créer une class TMaForm, avec la méthode en question
2. Etablir la ventilation des composant dans le Create de cette form 'mère' (sera automatiquement appelé par le inherited des forms fille)
3. fermer toutes tes formes dans l'éditeur
4.Chercher/remplacer dans toutes tes forms '= class(TForm)' à remplacer par '= class(TMaForm)'
5. Par contre, il faudra peut-être rouvrir/sauver/fermer une à une toute tes formes par la suite (a voir mais c'est pas sur).

et te voila avec une forme général, dont toute tes formes bénéficient des nouvelles fonctions de la form mère.
Enfin, c'était juste une alternative, les autres solutions marchent très bien aussi :)
12/04/2007, 15h07
PadawanDuDelphi

Citation:

2. Etablir la ventilation des composant dans le Create de cette form 'mère' (sera automatiquement appelé par le inherited des forms fille)

J'ai pas compris cette phrase, désolé... Surtout que cette méthode pourrait bien m'intéresser pour les fonctionnalités de mises en formes de bases de toutes mes formes.

Sinon, en effet, les autres méthodes marchent bien, pas de soucis.
12/04/2007, 15h11
Gilbert Geyer

Y'A+K choisir entre le simple et le compliqué !

C'est une question d'héritage.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type TPere = class( TForm ) ... procedure FormCreate(Sender: TObject); ... end; ... procedure TPere.FormCreate(Sender: TObject); begin inherited; // Traitement Pere end;
puis dans une autre unité
Code:

1 2 3 4 5 6 7 8 9 10 11 12 type TFils = class( TPere) ... procedure FormCreate(Sender: TObject); ... end procedure TFils.FormCreate(Sender: TObject); begin inherited; // <--- appelle le TPere.FormCreate... // Traitement Fils end;
Toutes tes forms filles, appelleront donc le traitement "Traitement Père", et ce traitement pourrait être précisément le parsing de tes composants avec une action dessus.

12/04/2007, 15h22
Kaféine

Citation:

Envoyé par TicTacToe

Un développement compliqué paraitra simple pour l'utilisateur, frustrant non ?
Notre revanche ? l'inverse est aussi vrai ;-)

J'aime bien cette citation ;)
12/04/2007, 15h42
PadawanDuDelphi

Ok, je comprend mieux, mais ca risque quand même de me prendre 2-3 jours, donc je le ferai dès que j'aurais 5min...

Merci à tous pour vos aides et conseils précieux.

A+.