5,388
社区成员
发帖
与我相关
我的任务
分享怎样在ListView编辑标签时提示用户出错后重新进行编辑状态？
我想实现在ListView编辑标签的时候，当用户输入非法内宾时提示用户出错后，能再次重新进行编辑状态。就像在Windows重命名文件那样。
以下是我实此功能的代码，希望名位Delphi高手大哥大姐们帮小弟一把，不胜感激。
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: String);
begin
if S = '' then
begin
MessageBox(Handle, '不能为空', nil, MB_OK);
S := Item.Caption;; // 恢复以前的数据
// 下面的语句行不通
Item.EditCaption; // 重新进入编辑状态
end;
end;
以下是我实此功能的代码，希望名位Delphi高手大哥大姐们帮小弟一把，不胜感激。
procedure TForm1.ListView1Edited(Sender: TObject; Item: TListItem;
var S: String);
begin
if S = '' then
begin
MessageBox(Handle, '不能为空', nil, MB_OK);
S := Item.Caption;; // 恢复以前的数据
// 下面的语句行不通
Item.EditCaption; // 重新进入编辑状态
end;
end;
...全文
请发表友善的回复…
发表回复
wangxibing 2003-10-10
- 打赏
- 举报
有人告诉我，好吗？
wangxibing 2003-10-05
- 打赏
- 举报
还是不行
wangxibing 2003-09-30
- 打赏
- 举报
各位老兄，帮一帮我吧，
wangxibing 2003-09-30
- 打赏
- 举报
没有人会吗
wenbean 2003-09-30
- 打赏
- 举报
treeview1.selected.text=s;
treeview1.Selected.EditText
treeview1.Selected.EditText
IORILI 2003-09-30
- 打赏
- 举报
告不定！！！
