Discussion :

[Maglight]

Je suis dans une unité et je crée un objet TMemo que je nomme TestMemo.
Lorsque je veux y charger un fichier j'ai le message d'erreur suivant :
"Le controle '' n'a pas de fenêtre parente"
Mon code est le suivant :

Code :

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

1
2
TestMemo:=TMemo.Create(self);
TestMemo.Lines.LoadFromFile(strChemin);

ou strChemin vaut '\\Serveur\Perso\CreatClient.htm'
Si je suis dans une form et que j'ai l'objet Tmemo dessus, le code fonctionne.
Au secours.
Merci d'avance

[Cl@udius]

Bonjour

j'ai le message d'erreur suivant :
"Le controle '' n'a pas de fenêtre parente"

Il faut définir le parent du TMemo, ne serait-ce que pour pouvoir l'afficher.
Ton code serait donc:

Code :

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

1
2
3
4
5
6
7
8
TestMemo:=TMemo.Create(self);
with TestMemo do
begin
  Parent := Self; // ou un autre contrôle
  Left := 10; // par exemple si besoin est
  Top := 10;
  Lines.LoadFromFile(strChemin);
end;

@+ Claudius

[Maglight]

Merci beaucoup
Trop fort