procedure TForm1.FormCreate(Sender: TObject); begin QRLabel1.Caption := Edit1.Text; end;
uses Unit1; procedure TForm2.FormCreate(Sender: TObject); begin QRLabel1.Caption := Form1.Edit1.Text; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean); begin QRLabel1.Caption := form1.Edit1.Text; end;