Discussion :

[boufano]

salam a tous,
J'ai la fonction suivante

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
 
function Tfrm_facture.form_colisage(const qte:integer):tstrings ;
var
form:Tfrm_import_colisage ;
begin
try
 
Result:=TStringList.Create;
form:=Tfrm_import_colisage.Create(application,qte);
form.ShowModal;
result :=form.liste_colisage ;
finally
 form.Free;
end;
 
 
end;

J'ai le message d'erreur " Le contrôle '' n'a pas de fênetre parente " et si le resultat : Liste_colisage est vide ca marche sans erreur

merci de votre Aide.

[Andnotor]

Ca n'explique pas le message d'erreur, mais une chose est sûr, Result pointera sur une adresse invalide à la sortie de ta fonction.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function Tfrm_facture.form_colisage(const qte:integer):tstrings ;
var
  form: Tfrm_import_colisage ;
begin
  try
    Result := TStringList.Create;
    form   := Tfrm_import_colisage.Create(application, qte);
    form.ShowModal;
    result.Assign(form.liste_colisage);
  finally
    form.Free;
  end;
end;

[neodelphi2007]

je te propose de créer une méthode de classe (Execute)
que tu rajoute à ta form Tfrm_import_colisage.execute

par exemple:

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
21
22
23
24
25
26
27
28
 
PARTIEDECLARATION
 
public
       class procedure Tfrm_import_colisage.execute(aList:TStrings);
 
 
 
 
PARTIE IMPLEMENTATION
 
class procedure Tfrm_import_colisage.execute(aList:TStrings);
        var lForm:Tfrm_import_colisage;
begin
      lForm:Tfrm_import_colisage.create(application);
      try
         // traitement de aList ici ou dans un évenement 
 
         lForm.ShowModal;
 
      finally
             FreeAndNil(lForm);
      end;
 
 
pui 
 
end;

puis dans ta form Tfrm_facture:

Code :

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

1
2
3
4
5
6
7
 
 
function Tfrm_facture.form_colisage(const qte:integer):tstrings ;
begin
        Result:=TStringList.Create;
        Tfrm_import_colisage.Execute(Result);    
end;

Pas tester , je suis en train de réinstaller mon delphi !

[boufano]

merci Andnotor ca marche !