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:
La TPaintBox n'apparaît jamais.
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);
J'arrive à faire un boulot identique avec un TLabel.
Qu'est ce que j'oublie au niveau de la TPaintBox??
Merci
Partager