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 ?