Discussion :

[smail25]

salut
j'ai un petit probleme c'est que je veux surcharger un TShape mais pas moyen de trouver comment. En fais ma surcharge ca veux dire ajouter un Caption donc c'est pour ecrire dans le TShape, j'ai trouver comment faire en delphi mais je veux le faire en c++ builder merci bcp de la reponse

[Pylz]

salut !!

je veux surcharger un TShape

Tu veux faire quoi exactement ?? Créer un nouveau composant VCL qui hérite d'un TShape et implémente un systeme de caption ? Ou simplement créer une classe qui englobe un TShape et un TLabel (par exemple) et gére leurs interactions et leus dispositions ... ou autre chose ?

[henderson]

Salut !

En dérivant de TShape, rajouter un pointeur sur un TLabel.
Dans le constructeur il suffit de créer le TLabel, sans oublier d'affecter
un Parent aux deux objets, pour ne pas dire le "bon" Parent. Probablement
fixer Panel->TransParent sur true etc.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
class TMyShape : public TShape
{
public :
TLabel *Label;
//Positions relatives du TLabel par rapport à celles du TShape
int Ox;
int Oy;
 
    __fastcall TMyShape(TComponent *Owner);
    __fastcall ~TMyShape();
    void __fastcall Paint();
}

Surcharger la méthode Paint du TShape :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
void __fastcall TMyShape::Paint()
{
//Appel de la méthode Paint du TShape
TShape::Paint();
//Et on positionne le TLabel
int x = Left + Ox; int y = Top + Oy;
if((x != Label->Left) || (y != Label->Top))
    {
    Label->SetBounds(x,y, Label->Width, Label->Height);
    }
}

J'ai fait un essai pour déplacer l'objet final sur une form. La méthode Paint
ainsi faite, crée l'illusion que les deux objets sont parfaitement solidaires !

A plus !

[smail25]

merci bcp de ta reponse je vais tester tout de suite.