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

Buka

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

Andrew_Sh

Buka написал:

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

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

Разве так не работает?

  Memo1.Cursor := crSQLWait;

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

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

Buka

Если работать с Memo динамически, в данном случае я создаю его полностью динамически в Visual C++, то свойства Cursor у Мемo нет, в какой бы тип я не приводила: IfrxComponent,IfrxView,IfrxCustomMemoView.

Но я решила эту проблему только-что с помощью скрипта. Сначала я в проге создаю свои объекты Мемо, а затем записываю в CString strScript весь скрипт. А уж потом гружу его в отчет pReport->PutScriptText(_bstr_t(strScript));