Salut
Je ne sais pas pourquoi ce code ne fonctionne pas !!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For H := 1 to 45 do begin if (Form8.Components[H] is TQRLabel) then begin TQRLabel(Form8.Components[H]).Caption := ''; end; end;
Partager