Discussion :

[cilies38]

bonjour,

J'ai un problème avec l'affichage d'objet Tshape dans la un panel j'arrive pas à les créer dynamiquement je sais pas comment m'y prendre en fait au début j'ai fait une procédure ensuite un constructeur pour finalement l'appeler dans FormCreate je vous donne une partie du code que j'essaye de faire fonctionner je ne trouve pas assez d'exemple concret c'est dommage. Merci d'avance

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
20
21
22
23
24
25
26
27
28
 constructor Tst.Create(X:Integer;Y:Integer;Text : String);
 
begin
inherited Create;
AlignementHorizontal:=alHCenter;
AlignementVertical:=alvCenter;
Caption:=Text;
Shape:=stCircle;
Left:=X;
Top:=Y;
end;
 
procedure TForm4.DrawTheme(Sender: TObject);
var
W,H : Integer;
Titre : String;
begin
W:=JvBevel1.Width;
H:=JvBevel1.Height;
Titre:=ComboBox1.items[1];
tst.create(W,H,Titre);
end;
 
 
procedure TForm4.FormCreate(Sender: TObject);
begin
DrawTheme(Form4);
end;

C'est juste pour tester de mettre un objet TshapeText dans un panel automatiquement à partir d'une liste de Tstring. Pour l'instant j'essaye d'en créer un seul.

[Graffito]

Bonjour,

Si tst hérite d'un TShape, la methode create devrait être :

Code :

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

constructor Create(AOwner: TComponent;X:Integer;Y:Integer;Text : String);

et il faut lui passer comme owner ton panel et faire :

Code :

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

inherited Create(AOwner) ;

[cilies38]

merci c'est mieux comme ca déja sa exécute mais cela n'affiche toujours rien dans mon panel .

je remet le code

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
20
21
22
23
24
25
26
27
28
constructor Tst.Create(AOwner: TComponent;X:Integer;Y:Integer;Text : String);
 
begin
inherited Create(Aowner);
AlignementHorizontal:=alHCenter;
AlignementVertical:=alvCenter;
Caption:=Text;
Shape:=stCircle;
Left:=X div 2;
Top:=Y div 2;
end;
 
procedure TForm4.DrawTheme(Sender: TObject);
var
W,H : Integer;
Titre : String;
begin
W:=JvBevel1.Width;
H:=JvBevel1.Height;
Titre:=ComboBox1.items[1];
tst.create(JvBevel1,W,H,Titre);
end;
 
 
procedure TForm4.FormCreate(Sender: TObject);
begin
DrawTheme(Form4);
end;

[Graffito]

Bonjour,

A quel(s) objet(s) correspond les variables:

AlignementHorizontal
AlignementVertical
Caption

Pour voir le tshape, il faut faire :

Code :

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

Shape1.Brush.Color := clyellow;

[cilies38]

un composant TShapeText héritant de Tshape qu'on m'a donné avec quelques propirétés en plus

[Graffito]

Est-ce que l'objet Tst est un héritier du TshapeText ?

Qu'apporte t'il de plus comme fonctionalité à part peut-être le create avec paramètres ?

Peux-tu indiquer le code de la déclaration du TshapeText ?

[cilies38]

j'ai du oublier quelquechose ! voici le code

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
type
  Tst=class(TShapeText)
    Constructor Create(AOwner: TComponent;X:Integer;Y:Integer;Text: String);overload;
   end;
  TForm4 = class(TForm)
    JvBevel1: TJvBevel;
    JvBevel2: TJvBevel;
    JvBevel3: TJvBevel;
    JvHTListBox1: TJvHTListBox;
    JvGradientHeaderPanel1: TJvGradientHeaderPanel;
    JvBitBtn1: TJvBitBtn;
    JvLabel1: TJvLabel;
    ShapeText1: TShapeText;
    ComboBox1: TComboBox;
    procedure JvBitBtn1Click(Sender: TObject);
    procedure DrawTheme(Sender: TObject);
    procedure FormCreate(Sender: TObject);

[cilies38]

aussi j'ai cet avertissement :

La méthode 'Create' cache la méthode virtuelle du type de base TShape

[Graffito]

Dans "constructor Tst.Create" il faut écrire :

Code :

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

inherited Create(Aowner,X,Y,Text);

[KBNOT-PRC600]

N'oublie pas d'initialiser la propriétés parent, sinon il ne sera jamais affiché par exemple, si tu ajoutes :

Code :

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

Parent:=Form4; // où celle que tu utilises, tu le verras!

dans le create: attention, le container n'est pas un wincontrol!

[cilies38]

c'était le parent qui manquait dans les propriétes merci beaucoup !!!