Bonjour,
Je cherche à dessiner dans une TPaintBox par dessus une TImage.
Si je crée ma TPaintBox dans l'IDE, pas de problème...
En revanche, si je la crée dynamiquement comme suit, j'ai une erreur de type
"Control has no parent window !".
Comment créer cette TPaintWindow ? (Voir les trois essais infructueux)
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 void __fastcall TFenPrincipale::SpeedButtonAddPointClick(TObject *Sender) { double X, Y; X=XLSLabelLongitude->Caption.ToDouble(); Y=XLSLabelLatitude->Caption.ToDouble(); // Essai 1 // TPaintBox *Test = (TPaintBox *) Sender; // Essai 2 // TPaintBox *Test = new TPaintBox((TPaintBox *) Sender); // Essai 3 // TPaintBox *Test = new TPaintBox(this); Test->Canvas->Brush->Color = clRed; Test->Canvas->Pen->Color = clBlack; Test->Canvas->Ellipse(0, 0, 20, 20); Test->Parent=FenPrincipale; // Ne change rien non plus... Test->Repaint(); etc.
Partager