Einzelnen Beitrag anzeigen

Benutzerbild von erich.wanker
erich.wanker

Registriert seit: 31. Jan 2008
Ort: im schönen Salzburger Land
460 Beiträge
 
Delphi XE4 Professional
 
#1

Reportbuilder 9.01 und Delphi 7

  Alt 3. Apr 2009, 13:49
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:
procedure TForm1.ppDetailBand1BeforePrint(Sender: TObject);
var x:integer;
begin
          for x:=0 to form1.ComponentCount-1 do
          begin

              if form1.Components[x].ClassName = 'TppLabelthen
              begin
              if (form1.Components[x] as TppLabel).Caption='Wert1then (form1.Components[x] as TppLabel).Caption:='gefunden1';
              if (form1.Components[x] as TppLabel).Caption='Wert2then (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
Erich Wanker - for life:=1971 to lebensende do begin ..
  Mit Zitat antworten Zitat