form1.Components[x] as TppLabel ...

rbuser

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

nicocizik

Hi Erich,

When accessing report components in code, try using a report object loop...

http://www.digital-metaphors.com/rbWiki/Delphi_Code/Layouts/Report_Object_Loop

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com