TValueListEditor的赋值问题

Question

TValueListEditor的赋值不是这样的吗？可是用以下的写法出来的窗体什么都没有。
显示详细信息窗体的formshow
DMTrans.TransEnqDetail(Vobj,sFlag,dStoreNo,dTermNo,dTrtype,tmpList);
 Vedit.Strings.AddStrings(tmpList);获取sgrid的一些具体值传递给dStoreNo,dTermNo,dTrtype去查询数据库
    dStoreNo := StoreNo;
    dTermNo  := TermNo;
    dTrtype  := Trtype;
    DMTrans.TransEnqDetail(Vobj,sFlag,dStoreNo,dTermNo,dTrtype,tmpList);
    Vedit.Strings.Clear;
//把TransEnqDetail函数查询的值加入TValueListEditor
    Vedit.Strings.AddStrings(tmpList);
    ShowModal;//显示详细信息窗体
    Free;我想点击SGRID的一行，然后弹出一个具体信息的窗体，不只是SGRID中列出的少数信息。请问应该怎么写？

Answer 1

设置TValueListEditor的options中的rowselect=true
procedure TForm1.ValueListEditor1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  //这个是触发单击某一行的事件，能够把这一行的内容取出来
  ShowMessage(ValueListEditor1.Cells[ACol,ARow]);
end;

Answer 2

上边我发的信息是对的，只是我的表里面没有数据，汗啊，竟然忘记这个关键的东西，谢谢pengxuan 的关注