delphi valuelisteditor控件的使用

delphi valuelisteditor控件的使用

2010-04-21 16:49

1.获取valuelisteditor的value的值：    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;