Composant et methode click...

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:

---

ShapePiano1.click ;

---

et pouvoir faire un traitement lors de ce click.

J'ai écrit :

Code:

---

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

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

Bonjour.

Baucoup plus simple.

Code:

---

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+

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.

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
:wink:

Citation:

---

Envoyé par TicTacToe

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

---

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

merci

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

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

Voilà ce que j'ai fait:

Code:

---

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

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:

---

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 !

Citation:

---

Envoyé par 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:

---

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 :roll: le compilo me met un avertissement en effet...mais ça marche.
Je vais néanmoins tester ta variante.

Ca marche !!!!

Merci :wink: