Slt tt le monde,
voila jessaye de faire le code suivant ds la procedure Execute dun Thread:
mais en mode debug sa plante sur la ligne:
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 ;
une Idee ptet ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 AProgress := TQRProgressForm.Create(Application);![]()
Partager