客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
DELPHI--关于ValueListEditor控件
(2011-02-22 17:56:30)
转载▼
标签：
it
分类： 工作—编程
1.请问在ValueListEditor里，如何知道我选择了哪一行吗？？
答：用procedure TControlPanel.ParamEditorSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);事件
注：ParamEditor是我用组件的名字
2.ValueListEditor，他竟然没有Clear方法！
答：用Strings.Clear;
3.ValueListeditor真是垃圾,用ValueListEditor1.Strings.Clear;后ValueListeditor的RowCount=2 一行是标题,另一行是空行
答：后面用 InsertRow('测量时间', '0', True); 应该没有问题的
4.比如某一行只有下拉框选项而不能直接输入
答：用ItemProps['前置放大'].PickList.Add('ON');
ItemProps['前置放大'].PickList.Add('OFF');
或ItemProps['前置放大'].PickList:=sSpan;//sSpan : TStrings;
5.以及Mask的用法 如何使输入显示*号
答：用事件procedure TControlPanel.ParamEditorKeyPress(Sender: TObject; var Key: Char);
和procedure TControlPanel.ParamEditorStringsChange(Sender: TObject); 控制
6.如何选择行列
答：当前选中的行通过Valuelisteditor1.row获得
当前选中的列通过ValueListEditor1.col获得
7.如何知道当前行的值
答：ValueListEditor1当前行的值:ValueListEditor1.Keys[ValueListEditor1.Row]
例子：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ValEdit;
type
TForm1 = class(TForm)
VE: TValueListEditor;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure VEEditButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
VE.TitleCaptions.Strings[0]:='名称';
VE.TitleCaptions.Strings[1]:='属性';
VE.InsertRow('姓名','无名氏',true);
VE.ItemProps['姓名'].EditStyle:=esSimple;
//第一行代码让我们加入一个新行，第一个参数是Key值，第二个参数是Value的默认值。
//第二行代码指出这是一个具有文本框风格的输入框。
VE.InsertRow('出生年月','1982',true);
VE.ItemProps['出生年月'].EditStyle:=esPickList;
VE.ItemProps['出生年月'].PickList.Add('1982');
VE.ItemProps['出生年月'].PickList.Add('1983');
VE.ItemProps['出生年月'].PickList.Add('1984');
VE.ItemProps['出生年月'].PickList.Add('1985');
VE.ItemProps['出生年月'].ReadOnly:=true;
//这几行代码让我们得到了一个具有下拉菜单风格的输入框。
//第二项代码指出，这是一个具有下拦菜单风格的输入框，紧接着加入一些下拉选项，
//最后一项代码指出其只能从下列项中选择而不准自行输入。
//当然，VE->ItemProps["出生年月"] (其实是一个ItemProp对象)
//它还具有一个EditMask的非常有用的属性。通过这个属性你可以定制输入。
//EditMask的非常有用的属性。通过这个属性你可以定制输入。
VE.InsertRow('地址','地球上的中国',true);
VE.ItemProps['地址'].EditStyle:=esEllipsis;
end;
procedure TForm1.VEEditButtonClick(Sender: TObject);
var
strAddress:string;
begin
strAddress:=VE.Values[VE.Keys[VE.Row]];
ShowMessage('欢迎您，来自'+strAddress+'的朋友!');
end;
end.
指定某一栏
ValueListEditor1.Col := 1;
ValueListEditor1.Row := 3;
ValueListEditor1.SetFocus;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论