Discussion :

[sgmsg]

Bonjour à tous

Je n'arrive pas à comprendre comment faire un objet non visuel qui déclenche un évènement afin d'être récupérer par un programme principal.

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
 
TGardien=class
    private
        Cible:string;
        fAlarme:Tevent;
    protected
        procedure Verifie(Ceci:string);dynamic;
        procedure LanceAlarme: Tevent;
    public
        constructor create(Sender:Tobject;  ASurveiller:string);
        destructor destroy;
        property Ceci: string read Cible write Verifie;
        property Alarme: tevent read LanceAlarme write LanceAlarme;
 
end;
implementation
      constructor create(Sender:Tobject;  ASurveiller:string);
      begin
            Cible:=ASuveiller;
      end;
 
     procedure Verifie(Ceci:string);
     begin
           if Ceci=Cible then begin
                 ????
           end;
     end;

Ensuite comment arrime-t'on ce composant à la fiche

Par exemple
Déclaration d'un event dans la fiche ?
Affectation de l'event au moment de la création de l'objet?


Merci d'avance

[Basile le disciple]

Si j'ai bien compris la question :

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
 
TGardien=class
    private
        Cible:string;
        fAlarme:Tevent;
    protected
        procedure Verifie(Ceci:string);dynamic;
     //   procedure LanceAlarme: Tevent;
    public
        constructor create(Sender:Tobject;  ASurveiller:string);
        destructor destroy;
        property Ceci: string read Cible write Verifie;
        property Alarme: tevent read fAlarme write fAlarme;
 
end;
implementation
      constructor create(Sender:Tobject;  ASurveiller:string);
      begin
            Cible:=ASuveiller;
      end;
 
  procedure Verifie(Ceci:string);
     begin
           if Ceci=Cible then begin
                 if assigned(fAlarme) then falarme(+ les variables);
           end;
     end;

et dans la fiche :

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
 
 
 
Gardien : TGardien;
procedure alarme(les variables);
 
.....
 
procedure TForm1.FormCreate(Sender: TObject);
begin
   Gardien:=TGardien.Create(self,'...');
   Gardien.Alarme:=alarme;
end;
 
procedure TForm1.Alarme(...);
begin
 
end;

[sgmsg]

Merci beaucoup

J'essaye ça demain

[Paul TOTH]

petite précision supplémentaire, si l'objet dériver de TComponent il est possible de l'enregistrer dans la palette de composants comme un composant non-visuel.

[sgmsg]

Bonjour, il y a quelque chose qui m'échappe...

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
TGardien=class
    private
        Cible:string;
        fAlarme:Tevent;
    protected
        procedure Verifie(Ceci:string);dynamic;
    public
        constructor create(Sender:Tobject;  ASurveiller:string);
        destructor destroy;
        property Ceci: string read Cible write Verifie;
        property Alarme: tevent read fAlarme write fAlarme;
 
end;
implementation
...

  procedure Verifie(Ceci:string);
     begin
           if Ceci=Cible then begin
                 if assigned(fAlarme) then falarme(+ les variables);
           end;
     end;

Quelles sont les variables?

J'ai essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    if ASurveiller=Ceci then 
       if assigned(fAlarme) then falarme(self,Ceci);//Message du compilateur : "opérateur ou point virgule manquant"
 
//ceci
 
    if ASurveiller=Ceci then 
       if assigned(fAlarme) then falarme(Ceci);//idem
 
//et ceci
 
    if ASurveiller=Ceci then 
       if assigned(fAlarme) then falarme(self);//idem

Marche pôs

Merci d'avance

[sgmsg]

On trouve la réponse ici :

http://www.developpez.net/forums/d50...-tnotifyevent/

Un événement personnalisé s'écrit donc comme ceci :

Code :

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

TNewEvent = procedure (Sender: TObject; Param1: string; Param2 : integer;...) of object;

ou

Code :

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

TNewEvent = function (Sender: TObject; Param1: float;...) : String of object;

Merci à tous