Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: Reportbuilder 9.01 und Delphi 7

  Alt 3. Apr 2009, 15:35
Du bekommst doch das Detailband im Parameter Sender mitgeliefert.
Ausserdem hat jedes TppControl das Property UserName.
Also mal so quick & dirty ungefähr so:
Delphi-Quellcode:
procedure TForm1.ppDetailBand1BeforePrint(Sender: TObject);
var
   i: Integer;
   custom_text: TppCustomText;
begin
   with Sender as TppCustomBand do
   begin
      for i := 0 to ObjectCount - 1 do
      begin
         if Objects[i] is TppCustomText then
         begin
            custom_text := TppCustomText(Objects[i]);
            if custom_text.Username = 'KillBillthen
               custom_text.Caption := 'Rübe ab !';
         end;
      end;
   end;
end;
Andreas
  Mit Zitat antworten Zitat