OnStartPage или что-то в этом роде

Комментарии

• Lex

  November 2005 отредактировано 22:14

  попробуй так:

  procedure MasterData1OnAfterCalcHeight(Sender: TfrxComponent);
  begin
    if Engine.FreeSpace < MasterData1.Hieght then
    begin
      {Твой код}
    end;
  end;
  
  

  
  
• aRaLeKiN

  November 2005 отредактировано 22:14

  попробовал, спасибо работает... но это если в дизайнере написать....
  только вот я динамически создаю все бенды....
  в коде пишу так

    report.ScriptText.Clear;
    report.ScriptText.Add('procedure '+
                          'MasterData1OnAfterCalcHeight(Sender: TfrxComponent); '+
                          'begin  if Engine.FreeSpace < MasterData1.height then '+
                          'begin showmessage(''jopa''); end; end; begin end.');
  

  Мессаги не выходят.... =( я порю что-то?
• aRaLeKiN

  November 2005 отредактировано 22:14

  имя MasterData1 вроде есть....
  создаю его так:

    masterband := TfrxMasterData.Create(page);
    masterband.CreateUniqueName;
    masterband.Stretched := true;
    masterband.Height := 40;
    masterband.DataSet := frxDBDataset1;
  
• Lex

  November 2005 отредактировано November 2005

  А что-нибуть типа

    masterband.OnAfterCalcHeight := 'MasterData1OnAfterCalcHeight'
  

  есть ?
• aRaLeKiN

  November 2005 отредактировано 22:14

  Баллин!!!
  Забыль прописать обработчик у мастербанда ))
  Lex, Биг Сенкс за помощь!!!