TRichView.com

Use this function: function GetFieldValueFromRVData(RVData: TCustomRVData; const FieldName: String): String; var i,r,c: Integer; table: TRVTableItemInfo; begin Result := ''; for i := 0 to RVData.ItemCount-1 do if (RVData.GetItemStyle(i)>=0) and (StrComp(PChar(RVData.GetItemTag(i)), PChar(FieldName)...

Now, about line breaks in fields. One item cannot contain a line break inside. Because of this, your line Cells[1,7].AddNLTag('xxxx'+#13+'oooooopo',6,0,Integer(StrNew('eName5'))); is incorrect, you need using 2 calls of AddNLTag to add 2 lines. And when you get values, you can enumerate all items h...

Sergey Tkachenko wrote:You can change VK_RETURN to VK_RIGHT.
You can implement similar code with VK_LEFT and PriorCurItem instead of NextCurItem.

Thank you for your help!

I test my program as your said yesterday. But It can't success because of some my mistake.

Today,I test again. It's ok!
Thanks.

TSRichViewEdit has the method NextCurItem allowing to select the next item having one of the specified StyleNo. In your case, StyleNo=6. Enter is processed in OnKeyDown event. Unfortunately, it is forbidden to move from cell to cell in OnKeyDown, so we need using PostMessage to call NextCurItem. 1)...

Now, about line breaks in fields. One item cannot contain a line break inside. Because of this, your line Cells[1,7].AddNLTag('xxxx'+#13+'oooooopo',6,0,Integer(StrNew('eName5'))); is incorrect, you need using 2 calls of AddNLTag to add 2 lines. And when you get values, you can enumerate all items h...

I want to move the Cursor in the gray background. The best,the user use "->" not use "enter" key.because "Enter" key use to newline. But I find an other problem.If I don't press "enter" key,I input the word "111" in the tag,I can get the word "1...

Sergey Tkachenko.Thank you very much!

My this problem has solved.

Thanks a lot.

Sergey Tkachenko wrote:Do you want it to move to the NEXT text with gray background?
Like MS Excel moves to the next cell when user presses Enter?

OK! Just it I want.

1) How do you want to use tags? 2) Where do you want to move the caret when the user pressed Enter? Sorry! I don't describe it carefully. My sourcecode is as below. //-------(( procedure TForm1.FormCreate(Sender: TObject); var r,c: Integer; begin table1 := TRVTableItemInfo.CreateEx(2,14, srv.RichVi...

my sourcecode is as below: //----------------(( procedure TForm1.FormCreate(Sender: TObject); var r,c: Integer; begin table1 := TRVTableItemInfo.CreateEx(2,14, srv.RichViewEdit.RVData); table1.BorderWidth := 0; table1.CellBorderWidth := 0; table1.CellBorderStyle := rvtbColor; table1.CellBorderColor ...

when I insert a tag in the table one cell.I find cursor before my tag.

How to delete it?

Please help me.

Thanks! Urgent !

First,thank your help me!

Now,I find a problem.I want to use the Tags in the TSrichViewEdit .
The user want to used the "Enter" key to move the Cursor.
How I do?


Thank you for your help! I'm very impatient.

Thanks again!