Как создать динамический объект

Комментарии

• Azrael

  June 2006 отредактировано 14:59

  Примерно вот так (если из кода отчета)
  
  procedure Page1OnManualBuild(Sender: TfrxComponent);
  begin
  with TfrxShapeView.Create(mdMain) do
  begin
  Parent := mdMain;
  Name := 'Sh';
  SetBounds(0, 0, 1000, 1000);
  Shape := skEllipse;
  Height := 25.50;
  Left := 35.00;
  Top := 44.90;
  Width := 32.50;
  Frame.Color := clBlack;
  Frame.Style := fsSolid;
  Frame.Style := 1;
  Color := clNone;
  BrushStyle := bsSolid;
  Visible := True;
  end;
  Engine.ShowBand(mdMain);
  end;
  
  Соответственно предварительно нужно создать бэнд типа MasterData (в примере это mdMain). Соответственно создаем овал на этом бэнде, а потом этот бэнд выводим на лист
• Evgesha

  June 2006 отредактировано 14:59

  А как создавать из кода программы
  И еще я на Билдере 6 пишу
• dron-s Россия

  June 2006 отредактировано 14:59

  читай мануал, там всё подробно написано...