Home› End User
ReportBuilder 22.04 now available including Delphi 12.1 support!
New Blog Post: Helper Routines

form1.Components[x] as TppLabel ...

rbuserrbuser
edited April 2009 in End User
Hallo Leute,

eine Frage:

Ich verwende Reportbuilder9.01 mit Delphi7
ich m?chte gerne in einem DetailBand zwei TppLabels platzieren
und wenn das DetailBand (das via ppDBPipeline eine Quelle besitz)
gedruckt wird, sollen die TppLabels Werte aus der DB bekommen..
(ich kann kein ppDBText verwenden!)

Beispiel:
Delphi-Quellcode: |
1
?
?
?
5
?
?
?
?
10
?
12
procedure TForm1.ppDetailBand1BeforePrint(Sender: TObject);
var x:integer;
begin
for x:=0 to form1.ComponentCount-1 do
begin

if form1.Components[x].ClassName = 'TppLabel' then
begin
if (form1.Components[x] as
TppLabel).Caption='Wert1' then (form1.Components[x] as
TppLabel).Caption:='gefunden1';
if (form1.Components[x] as
TppLabel).Caption='Wert2' then (form1.Components[x] as
TppLabel).Caption:='gefunden2';
end;
end;



funktionieren sollte das ganze aber bei einem Report, der vom User erstellt
wurde -
also kein Delphi-Designtime-Event "BeforePrint" im DetailBand besitzt.

Zweck:
Wenn der User in einem Detailband ein Feld mit Text: "Wert1" platziert,
schreib ich "h?ndisch" die Daten rein ..
Query ist gefiltert und bereit - welches Feld ich verwende ist aber nicht
fix..

Wie kann ich den Event nutzen?

Vielen Dank

Erich

Comments

This discussion has been closed.