随
随缘
Unregistered / Unconfirmed
GUEST, unregistred user!
// 100分的问题,回答出就给分,如分不够可以再加.
//
procedure TFeedkindForm.ToolButton3Click(Sender: TObject);
begin
Listview1.Selected.EditCaption;
end;
//问题在下面
procedure TFeedkindForm.ListView1Edited(Sender: TObject;
Item: TListItem;
var S: String);
begin
if trim(s) = '' then
begin
Agentspeak(genie,1,'接水性质不能为空','');
Abort;
{ 问题是:这句只能取消原来的输入,光标已退出,我的目的是
想让其还处于EDIT状态,禁止光标移出,让用户重新输入直到输入值
符合要求,我查过以前的离线数据,但没有我的答案,请各位多多帮忙}
end;
end;
//
procedure TFeedkindForm.ToolButton3Click(Sender: TObject);
begin
Listview1.Selected.EditCaption;
end;
//问题在下面
procedure TFeedkindForm.ListView1Edited(Sender: TObject;
Item: TListItem;
var S: String);
begin
if trim(s) = '' then
begin
Agentspeak(genie,1,'接水性质不能为空','');
Abort;
{ 问题是:这句只能取消原来的输入,光标已退出,我的目的是
想让其还处于EDIT状态,禁止光标移出,让用户重新输入直到输入值
符合要求,我查过以前的离线数据,但没有我的答案,请各位多多帮忙}
end;
end;
]不错,不过好像无法控制鼠标的动作!