Как установить св-во Cursor динамически?

Комментарии

• Andrew_Sh г.Минск

  October 2005 отредактировано 12:21

  Buka написал:

  К какому типу привести свой объект Memo, чтобы установить динамически значение в свойстве Cursor?

  Непонятно зачем приводить, если у мемо и так есть свойство Cursor
  
  Разве так не работает?

    Memo1.Cursor := crSQLWait;
  

  
  Ну если хочется устанавливать курсор в обработчике OnBeforePrint, то приводится так:

  procedure Memo1OnBeforePrint(Sender: TfrxComponent);
  begin
    if sender is TfrxCustomMemoView then
      TfrxCustomMemoView(sender).Cursor := crSQLWait;
  end;
  

  
  
• Buka

  October 2005 отредактировано 12:21

  Если работать с Memo динамически, в данном случае я создаю его полностью динамически в Visual C++, то свойства Cursor у Мемo нет, в какой бы тип я не приводила: IfrxComponent,IfrxView,IfrxCustomMemoView.
  
  Но я решила эту проблему только-что с помощью скрипта. Сначала я в проге создаю свои объекты Мемо, а затем записываю в CString strScript весь скрипт. А уж потом гружу его в отчет pReport->PutScriptText(_bstr_t(strScript));