1.獲取valuelisteditor的value的值：

?? str := valuelisteditor.value['top']; top為key的內(nèi)容。

2. 獲取valuelisteditor的key值：

?? str:=valuelisteditor.key[0]; 獲取第0 個(gè)key值。

3.插入一行數(shù)據(jù)

valuelisteditor.InsertRow('pp','pp1',true);
//第一個(gè)參數(shù)：key的值(字符串型)
//第二個(gè)參數(shù)： value的值(字符串型)
//第三個(gè)參數(shù)：是否追加,TRUE在最后一行加上一行，FALSE在獲得焦點(diǎn)的一行的后面加上一行.

4. 刪除一行數(shù)據(jù)

ValueListEditor1.DeleteRow(2);

5.如何選擇行列
　當(dāng)前選中的行通過(guò)currrow:=Valuelisteditor1.row獲得
　當(dāng)前選中的列通過(guò)currcol:=ValueListEditor1.col獲得

6.ValueListEditor，用string.clean清除！

7.一個(gè)key值，多個(gè)value.

procedure TForm1.ValueListEditor1GetPickList(Sender: TObject;
const KeyName: String; Values: TStrings);
var
??? str:string;
begin
??? str:=self.ComboBox1.Text;
??? str:=leftStr(str,4);
??? if str='Edit' then
??? begin
??????? if KeyName='BorderStyle' then
??????? begin
??????????? Values[0]:='bssingle';
??????????? values[1]:='bsnone';
??????? end;
??? end;
end;

另一個(gè)方法

ValueListEditor1.ItemProps[0].PickList.Add('a1');
ValueListEditor1.ItemProps[0].PickList.Add('a2');
ValueListEditor1.ItemProps[0].PickList.Add('a3');

第三種方法：

??? Index := ValueListEditor1.InsertRow('Size', '9', True);
???? with ValueListEditor1.ItemProps[Index - 1].PickList do
??? begin
Add('9');
Add('11');
Add('13');
Add('20');
end;

8。加入。。按鈕

Index := ValueListEditor1.InsertRow('Color', 'clRed', True);
ValueListEditor1.ItemProps[Index - 1].EditStyle := esEllipsis;

procedure TForm1.ValueListEditor1EditButtonClick(Sender: TObject);
var
nRow: Integer;
begin
nRow := ValueListEditor1.Row;
case nRow of
2:
with TColorDialog.Create(nil) do
begin
if Execute then
ValueListEditor1.Cells[2, nRow] := ColorToString(Color);
end;
end;
end;