Les comparto que tengo dentro de un reporte de QuickReport 3.0 (trabajando con Delphi 6.0) la creación de una etiqueta (TQRLabel) a través de éste código:
delphi
with TQRLabel.Create(Rprt.Bands.ColumnHeaderBand) do begin Parent := Rprt.Bands.ColumnHeaderBand; Left := iIzqrdActl; Top := 0; Height := 40; Width := 120; AutoSize := False; Caption := 'Texto:'+IntToStr(iApntdr); end;
El detalle que necesito incluir en la creación de la etiqueta para cumplimentar un requerimiento que me pasaron hoy en la mañana, es que si el apuntador contiene números pares, cambiar el color o la presentación (lo cual no me plantea problema)
Dado éste código, ¿cómo puedo incluir un evento OnPrint exclusivo de la nueva etiqueta e incluirle el código que ya tengo en funcionamiento?
Ejemplo:
delphi
with TQRLabel.Create(Rprt.Bands.ColumnHeaderBand) do begin Parent := Rprt.Bands.ColumnHeaderBand; Left := iIzqrdActl; Top := 0; Height := 40; Width := 120; AutoSize := False; Caption := 'Texto:'+IntToStr(iApntdr); [b]OnPrint := qrlabel[i]x[/i]Print;[/b] end;
Agradeciendo de antemano su colaboración...