Re: Raize Components + TRVTable = Access Violation

Return to index

Author

Message

Joel Cuyos

Posted: 02/04/2005 10:22:19

Sergey Tkachenko wrote:

>

> When does it happen?

It happens when creating the control on any of the cells.

Here is my code to add the edit box:

procedure AddEditBox;

var

  MyEditBox: TRzEdit;

  SelStart, SelLength: Integer;

begin

  MyEditBox :=  TRzEdit.Create(nil);

  MyEditBox.Parent  := Self;

  MyEditBox.FrameVisible := True;

  MyEditBox.FrameColor   := clBtnShadow;

  MyEditBox.OnClick := OnControlClick;

  MyEditBox.Enabled  := False;

  MyEditBox.Color    := clWindow;

  ChartEditor.TopLevelEditor.InsertControl('EditBox', MyEditBox,

rvvaBaseline);

ChartEditor.TopLevelEditor.SetCurrentItemExtraIntProperty(rvepResizable,

1, True);

  RVGetSelection(ChartEditor, SelStart, SelLength);

  ChartEditor.Format;

  RVSetSelection(ChartEditor, SelStart, SelLength);

end;

The error happens in 'RVSetSelection' procedure. Commenting this

procedure will create the component successfully. However, when you

click on any of the cells in the table create an access violation.

Setting FrameVisible to False, the application behaves normally without

any errors.

Kind regards,

Joel