Discussion :

[toure32]

Bonjour a tous,
j'ai creer un objet TPersoBtn qui herite de TBouton.
Tout marche bien et c'est vraiement merveilleu l'approche OO dans le genie logiciel.
Maintenant je suis coincé à un niveau.
Je veux créer un evenement auquel mes objets doivent réagir
Mercie de m'aider.
Cordialement.

[Linkin]

Quel type d'événement?

Il peut y avoir plusieurs façons de faire.

[pinson]

Si tu veux que plusieurs objets ont les même actions, regarde du côté des ActionList.

Sinon tu te mets sur la fenêtre des propriétés en faisant "F11", et là tu vas sur l'onglet "évènement", et du double-clic sur l'évènement que tu veux.

Voilà, sinon tu peux en créer en plus mais là c'est plus difficile.

[Cl@udius]

Salut

Voilà, sinon tu peux en créer en plus mais là c'est plus difficile.

Je crois justement que c'est ce qu'il veux faire, donc on en revient à la question de Linkin:

Quel type d'événement?

@+

[toure32]

Un evenement que le formulaire declanchera à l'ouverture

[toure32]

En java par exemple pour créer un evenement
tous les class qui doivent reagir à un event implementent une meme interface.
et à la création d'1e instance elle est ajoutée dans un conteneur appelér listner et une foction fire(...) parcour le listner execute les methode appropriées ainsi tous les objets enregistrés dans le listner reagissent à l'evenement.
Ainsi en JAVA on peut créer tout event que l'on shouhaite.
je ne sais pas si delphi foctionne de la meme maniere.
Dans tous les cas mon but est de pouvoir créer un Event et de le declenché a tous moment par code a fin que mes objets executent des taches specifique.
cordialement.

[slimjoe]

Salut!

Un événement, en Delphi, ce n'est rien de plus qu'une propriété de type méthode. En réalité, quand un événement est soulevé et que ce dernier est géré, une méthode est exécutée.

Disons que tu veuilles déclencher un événement lorsque le texte (Caption) sur ton bouton change.

1- Déclarer un type méthode:

Code :

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

1
2
3
 
type
  TMonTypeMethode = procedure(Sender: TObject) of object;

2- Dans ta classe, déclarer un champ qui va contenir la méthode à exécuter lors du soulèvement de l'événement:

Code :

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

1
2
private
  FOnCaptionChanged: TMonTypeMethode;

3- Toujours dans ta classe, déclarer une propriété qui permettra à l'utilisateur de ta classe de gérer ton événement :

Code :

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

1
2
3
4
 
public
  property OnCaptionChanged: TMonTypeMethode 
    read FOnCaptionChanged write FOnCaptionChanged;

4- Dans ton code, lorsque tu sais que le Caption a été changé et que tu veux soulever l'événement, tu vérifier que l'événement est géré et appeller la méthode:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TMaClasse.ChangerCaption;
begin
  //...
  //Code qui change le caption
  //ATTENTION :  C'est à toi de gérer le changement de caption!
  //...
 
  if FOnCaptionChanged <> nil then //On teste si l'événement est géré
    FOnCaptionChanged (self);  //On appelle la méthode
end;

5- Enfin, si l'utilisateur de ta classe désire réagir au changement de Caption, il devra implémenter un gestionnaire d'événement pour OnCaptionChanged:

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
 
procedure TForm1.DoCaptionChanged(Sender: TObject);
begin
  Showmessage('Le caption a changé');
end;
 
procedure TForm1.MonTest;
var
  MonObjet: TMaClasse;
 
begin
  MonObjet := TMaClasse.Create;
  MonObjet.OnCaptionChanged := DoCaptionChanged;
  MonObjet.Caption := 'abc';
  MonObjet.Free;
end;

Bon dev!

[toure32]

Merci slimjoe pour ton aide tres instructif.
mais comment je declenche on event.
je sais que les event de la souris sont declenchés automatique...
dans mon cas je veux que l'event soit decleché par un element de mon programme. si tu veux un formulaire dans son onShow doit soulever le drapau pour que les objet qui ecoute l'event repondent.
cordialement.

[sjrd]

A ce thread je ne peux que répondre par un peu d'auto-pub
Tutoriel sur la création de composants en Delphi

[slimjoe]

mais comment je declenche on event.
je sais que les event de la souris sont declenchés automatique...

Justement, non.

Quelque part dans la classe TButton, il y a un listener de messages Windows. Quand Windows envoie au bouton le message que ce dernier a été cliqué, la classe soulève l'événement OnClick. Il n'y a rien d'automatique. C'est la classe qui décide si l'événement se soulève.

dans mon cas je veux que l'event soit decleché par un element de mon programme

Un élément de ton programme ? Peux-tu être plus précis stp ? Tu veux que ça soit ta fiche Form1 qui soulève l'événement de ton objet et non l'objet lui-même ? Ne pourrais-tu pas donner un exemple précis de ce que tu cherches à faire ?

si tu veux un formulaire dans son onShow doit soulever le drapau pour que les objet qui ecoute l'event repondent.

Tu voudrais que sur le OnShow de ta fiche, l'événement OnClick d'un de tes bouton se déclenche ? Facile : comme c'est une méthode tu n'as qu'à l'appeler.

Code :

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

1
2
3
4
5
6
 
procedure TForm1.OnShow(Sender: TObject);
begin
  if MonBouton.OnClick <> nil then
    MonBouton.OnClick(MonBouton);
end;

[Pedro]

Salut

1- Déclarer un type méthode:

Code :

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

1
2
3
 
type
  TMonTypeMethode = procedure(Sender: TObject) of object;

2- Dans ta classe, déclarer un champ qui va contenir la méthode à exécuter lors du soulèvement de l'événement:

Code :

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

1
2
private
  FOnCaptionChanged: TMonTypeMethode;

S'il y a uniquement (Sender: TObject), on peut faire directement:

Code :

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

1
2
private
  FOnCaptionChanged: TNotifyEvent;

Pas besoin de déclarer autre chose Personnellement je déclare un nouveau type uniquement lorsque j'ai un appel particulier, sinon, j'utilise TNotifyEvent...

[slimjoe]

Salut

S'il y a uniquement (Sender: TObject), on peut faire directement:

Code :

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

1
2
private
  FOnCaptionChanged: TNotifyEvent;

Pas besoin de déclarer autre chose Personnellement je déclare un nouveau type uniquement lorsque j'ai un appel particulier, sinon, j'utilise TNotifyEvent...

+1

Parfaitement d'accord. Aucune raison de réinventer la roue. Je l'ai fais uniquement dans un but didactique .