Discussion :

[Soulama]

Slt tt le monde,
voila jessaye de faire le code suivant ds la procedure Execute dun Thread:

Code :

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

1
2
3
4
5
6
7
8
9
 
  AProgress := TQRProgressForm.Create(Application);
  Try
    AProgress.QRPrinter := QRPrinter;
    if ShowProgress then AProgress.Show;
    QRPrinter.Client := AProgress;
  Finally
     AProgress.Free;
  end ;

mais en mode debug sa plante sur la ligne:

Code :

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

1
2
 
  AProgress := TQRProgressForm.Create(Application);

une Idee ptet ?

[Soulama]

Code :

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

1
2
 
    Synchronize(MyCreateForm);