Bonjour,

Je suis en train de faire un composant dérivé de TShape et je voudrais lui ajouter la méthode Click (TShape ne l'a pas)de façon à pouvoir faire dans mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ShapePiano1.click ;
et pouvoir faire un traitement lors de ce click.

J'ai écrit :
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
 
unit ShapePiano;
  interface
 
  uses  Windows, WinProcs,Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
 
 
type
  TShapePiano = class(TGraphicControl)
public
   procedure Click; override;
   .....
implementation
...
procedure TShapePiano.Click;
begin
  inherited Click;
  traitementDuClick;
end;
la compilation semble ok (à part un avertissement: la methode 'click' masque la methode virtuelle du type de base TControl) mais dans mon prog. je n'arrive pas à écrire le code ShapePiano1.click, il m'affiche un message:
Violation d'accès à l'@ 00A9ABA dans le module dcc70.dll....



Merci de votre aide