Discussion :

[adelavarenne]

Lors du lancement de mon appli, j'ai une erreur que je ne comprend pas. Le contrôle ListBox1 n'a pas de fenêtre parent.
Ce contrôle est déclaré normalement et est initialisé lors du lancement de l'application dans un évènement FormCreate.
D'avance merci.

[Arrown]

Peut être parce qu'il est créé dynamiquement et que tu n'as pas fait de
Listbox1.parent := form1;
par exemple.

[adelavarenne]

Tout d'abord, merci pour ton aide.
J'ai essayé cette méthode mais elle me renvoie une erreur d'incompabilité.
[Erreur] Unit1.pas(69): Types incompatibles : 'TWinControl' et 'TForm1'

[Arrown]

Chez moi ca marche en mettant ça dans le oncreate de la form :

Code :

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

1
2
3
4
5
6
7
 
var
   L : TListbox;
begin
L := TListbox.Create(form1);
L.PArent := form1;
end;

car ce qui est étonnant ds ton erreur c'est qu'il demande un Wincontrol, c'est bizarre. Aucun rapport entre un wincontrol et un parent.

[Bruno75]

Le rapport est que TForm dérive de TWinControl. Et comme TForm1 j'imagine dérive de TForm normalement, les types devraient être compatibles. Essaye un typecast

Code :

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

1
2
 
L.Parent := TWinControl(TForm1);

Mais ca devrait être inutile.

Montre ton code source pour voir.

[adelavarenne]

Non ca ne fonctionne pas.
Même en le créant dynamiquement j'ai toujours la même erreur d'incompabilité.

[Bruno75]

Ca veut dire que TForm1 ne dérive pas de TWinControl ce qui est très étrange à moins que tu mélanges la bibli VCL et la bibli CLX.

[adelavarenne]

je n'ai rien fait de particulier, mon form1 doit dérivé de twincontrol, c'est bizarre.
Comment s'assurer que je n'ai pas mélanger les 2 biblio?

[Bruno75]

Vérifie que dans les uses ce soit Forms et non QForms.
Forms: VCL
QForms: CLX.

[adelavarenne]

Merci à tous les deux, enfaîte j'avais les deux dans uses..
Cela semble fonctionner.