Discussion :

[123djimy]

Bonjour à tous,

Comment puis-je ajouter l'évènement "DblClick" à une classe qui ne dérive pas de la classe Tcontrol? donc je ne peux pas surcharger cette méthode puisqu'elle n'existe pas dans la la classe ascendante!!

J'ai essayé ce code, mais il ne fonctionne pas!

Code :

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

1
2
3
4
5
6
7
8
MaClasse= class(Tobject)
  private
     fOnDblClick: TNotifyEvent;
  protected
     procedure DblClick;
  published
     property OnDblClick: TNotifyEvent read fOnDblClick write fOnDblClick;
  end;

Code :

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

1
2
3
4
5
6
7
implementation
{$R *.dfm}
 
Procedure MaClasse.DblClick;
begin
  //......
end;

Merci d'avance

[Andnotor]

Et comment veux-tu que l'application sache qu'il faut t'envoyer ce message (souris) si ce n'est pas un composant visuel

[123djimy]

Et comment veux-tu que l'application sache qu'il faut t'envoyer ce message (souris) si ce n'est pas un composant visuel

Salut

C'est un composant visuel qui dérive directement de la classe Tobject
je n'ai pas mis le programme complet,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
MaClasse= class(Tobject)
  private
     fOnDblClick: TNotifyEvent;
     .......
  protected
     procedure DblClick;
     .......
  published
     property OnDblClick: TNotifyEvent read fOnDblClick write fOnDblClick;
     .......
  end;

Le composant s'affiche, mais l'évènement "DblClick" n'existe pas.

[Andnotor]

Alors, je modifie légèrement ma réponse

Soit c'est un contrôle fenêtré (qui possède un handle) qui est susceptible de recevoir directement le message, soit c'est un contrôle non fenêtré et c'est l'application qui est en charge de répartir les messages.

Si tu ne passes pas par les classes Delphi appropriées, c'est à toi de coder l'ensemble

[popo]

Les composant non visuels doivent dériver au minimul de TComponent.
Les composants visuels doivent dériver au minimum de TControl ou TGraphicControl

[123djimy]

J'ai un composant visuel, et quant je surcharge l'évènement "DblClick":

Code :

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

Procedure DblClick;Override;

Une message d'erreur s'affiche:

Code :

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

[DCC Erreur] Pro.pas(145): E2137 Méthode 'DblClick' non trouvée dans la classe de base

Qu'est ce que je dois faire?

[Paul TOTH]

J'ai un composant visuel, et quant je surcharge l'évènement "DblClick":

Code :

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

Procedure DblClick;Override;

Une message d'erreur s'affiche:

Code :

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

[DCC Erreur] Pro.pas(145): E2137 Méthode 'DblClick' non trouvée dans la classe de base

Qu'est ce que je dois faire?

les composants dits visuels sont dérivés de TControl qui possède une méthode DblClick.

Si tu dérives de TObject, tu n'as pas un composant "visuels", tu n'as d'ailleurs pas un "composant" (TComponent) mais une classe objet qui éventuellement permet d'afficher quelque chose à l'écran, et qui est totalement déconnectée des évènements souris.

Donc soit tu dérives de TControl, soit tu apportes à ton composant les évènements souris auxquels tu veux qu'il réagisse de la même façon que tu lui permets de se dessiner sur un Canvas...alors que lui même n'en possède à priori pas.