Discussion :

[zitoune92]

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

[TicTacToe]

il doit manquer le parametre Sender à ta nouvelle définition

[Philippe Gormand]

Bonjour.

Baucoup plus simple.

Code :

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

1
2
3
4
5
6
7
8
9
 
type 
  TShapePiano = class(TGraphicControl) 
public 
     ..... 
published
property OnClick;
property OnDbClick;
end;

Je l'ai fait por un composant déscendant de TShape.

Ca marche, garanti, TShape étant un descendant de TGraphicControl.

A+

[Philippe Gormand]

Je disais que je l'aifait avec un descendant de TShape. Je me suis trompé.
J'ai fait un TShapeText descendat de TGraphicControl.

Fais comme je t'ai montré, ça marche sans problème.

[zitoune92]

Pour Philippe:
Le OnClick gère l'évenement quand l'utilisateur clique le composant mais ne crée pas la méthode !

Ce que je veux c'est pouvoir envoyer ce click par code.

par ex. pour un bouton, on peut faire Button1.click ;

mais pour Shape1 il n'y a pas...

Merci quand même

[zitoune92]

il doit manquer le parametre Sender à ta nouvelle définition

Peux-tu préciser s'il te plait ?

merci

[TicTacToe]

J'ai été trop vite j'ai dit une anerie.

En fait, click se contente d'appeler la méthode OnClick si elle est affectée.

or pour les TShape, il n'y a pas d'evt OnClick dans les TGrphicControl.

Donc à mon avis, il faut jouer avec OnMouseDown plutot.

sinon, le click est redefini (et c'est pour ca que le compilo rale à mon avis).

peut-être re-introduce pour signaler que c'est une redefinition. mais l'évt de OnClick ne pourra pas être lié en amont..

sinon sans se servir de 'Click'
Donc 1. faire une métode MouseDown(...), 2. la lier à l'evt OnMouseDown 3. appeler MouseDown(...) qd tu en as besoin

[zitoune92]

Bon j'ai trouvé TicTacToe. Ton "annerie" m'a mise sur la piste.

Voilà ce que j'ai fait:

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
 
.....
  TShapePiano = class(TGraphicControl)
published
    property OnClick;
public
   constructor Create(AOwner: TComponent); override;
   procedure Click(Sender: TObject) ; 
......
implementation
......
procedure TShapePiano.Click(Sender: TObject);
Begin
  <<traitement supplémentaires>>;
  Inherited Click;
end;

et dans mon prog, j'obtiens bien la methode :
ShapePiano1.click(Sender:TObject);

je mets "self" comme Sender et le tour est joué !

Merci

[TicTacToe]

tant mieux

c'est bien comme ca que je le voyais, mais je suis étonné que le compilo rale pas.

mais c'est surtout le published sur OnClick qui fait que ca marche

selon les sources de boutons, je pense qu'il vaudrait mieux faire

Code :

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

1
2
3
4
5
public
  procedure Click; override; // rendre cette méthode visible, elle existe en amont
 
published
  property OnClick; // publié l'évt OnClick, idem il existe déjà

je suis pas sur qu'avec le code que tu as posté, le Sender soit nécessaire du coup !

[zitoune92]

tant mieux

c'est bien comme ca que je le voyais, mais je suis étonné que le compilo rale pas.

mais c'est surtout le published sur OnClick qui fait que ca marche

selon les sources de boutons, je pense qu'il vaudrait mieux faire

Code :

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

1
2
3
4
5
public
  procedure Click; override; // rendre cette méthode visible, elle existe en amont
 
published
  property OnClick; // publié l'évt OnClick, idem il existe déjà

je suis pas sur qu'avec le code que tu as posté, le Sender soit nécessaire du coup !

Ben le compilo me met un avertissement en effet...mais ça marche.
Je vais néanmoins tester ta variante.

Ca marche !!!!

Merci