bonjour,
j'instancie de manière dynamique une TPaintBox que je veux insérer sur une TTabSheet créée à la demande. L'utilisateur doit pouvoir cliquer sur cette TPaintBox pour y dessiner des formes géométriques.
J'a le code suivant:
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
 
//nouvelle page pour la table PageControl
TTabSheet* page = new TTabSheet(this);
page->Width = 200;
page->Height = 150;
page->Top = 10;
page->Left = 0;
//insertion sur le TPageControl
page->PageControl = PageControl;
//insérer un contrôle sur la nouvelle page
TPaintBox* paintBox = new TPaintBox(page);
paintBox->Parent = page;
paintBox->Width = 150;
paintBox->Height = 120;
paintBox->Top = 10;
paintBox->Left = 10;
paintBox->Canvas->Pen->Color = clYellow;
paintBox->Canvas->Brush->Color = clRed;
TRect NewRect = Rect(20, 30, 50, 90);
paintBox->Canvas->FillRect(NewRect);
La TPaintBox n'apparaît jamais.
J'arrive à faire un boulot identique avec un TLabel.

Qu'est ce que j'oublie au niveau de la TPaintBox??

Merci