str := valuelisteditor.value['top']; top为key的内容。
2. 获取valuelisteditor的key值:
str:=valuelisteditor.key[0]; 获取第0 个key值。
3.插入一行数据
valuelisteditor.InsertRow('pp','pp1',true);
//第一个参数:key的值(字符串型)
//第二个参数: value的值(字符串型)
//第三个参数:是否追加,TRUE在最后一行加上一行,FALSE在获得焦点的一行的后面加上一行.
4. 删除一行数据
ValueListEditor1.DeleteRow(2);
5.如何选择行列
当前选中的行通过currrow:=Valuelisteditor1.row获得
当前选中的列通过currcol:=ValueListEditor1.col获得
6.ValueListEditor,用string.clean清除!
7.一个key值,多个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;
另一个方法
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;