How to Change any property in OnBeginBand

Hi !

I try to change anything in MasterData band. I trying with this example:
procedure TForm1.frReport1BeginBand(Band: TfrBand);
var hco:TfrView;
begin
 if (Band.Typ=btMasterData) then begin
    hco:=frReport1.Pages[0].FindObject('Mem_Person');
    if Self.Tag=0
       then TfrMemoView(hco).Font.Color:=clBlue
       else TfrMemoView(hco).Font.Color:=clRed;
    Self.Tag:=(Self.Tag+1) mod 2;
 end;
end;

But that is not working !
The Memo's Color is not changed. How to force the change ?

Thanx for help: ft

Leave a Comment