Edit.text et QReport
sanabde
Messages postés
17
Date d'inscription
mardi 11 mars 2014
Statut
Membre
Dernière intervention
15 mai 2014
-
11 mars 2014 à 17:52
solilog Messages postés 273 Date d'inscription samedi 13 juin 2009 Statut Membre Dernière intervention 18 avril 2015 - 16 mars 2014 à 07:59
solilog Messages postés 273 Date d'inscription samedi 13 juin 2009 Statut Membre Dernière intervention 18 avril 2015 - 16 mars 2014 à 07:59
1 réponse
solilog
Messages postés
273
Date d'inscription
samedi 13 juin 2009
Statut
Membre
Dernière intervention
18 avril 2015
10
16 mars 2014 à 07:59
16 mars 2014 à 07:59
Bonjour,
Si Form1 est la form contenant ton QReport et Form2 une autre form contenant ton Label :
procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
qrLabel1.caption := Form2.Label1.caption ;
end;
et tu peux faire la même chose avec l'évênement
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
qrLabel1.caption := Form2.Label1.caption ;
end;
ainsi to QRLabel serarenseigné en preview et en print.
Bonne journée.
solilog
Si Form1 est la form contenant ton QReport et Form2 une autre form contenant ton Label :
procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
qrLabel1.caption := Form2.Label1.caption ;
end;
et tu peux faire la même chose avec l'évênement
procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
qrLabel1.caption := Form2.Label1.caption ;
end;
ainsi to QRLabel serarenseigné en preview et en print.
Bonne journée.
solilog
