listview findCaption

最新推荐文章于 2022-12-29 18:18:08 发布

weixin_30315723

最新推荐文章于 2022-12-29 18:18:08 发布

阅读量304

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/maweiwei/p/11094964.html

本文详细介绍了在Delphi中如何使用键盘事件处理程序来搜索列表视图中的项目。通过监听Enter键，代码实现了查找并高亮显示匹配项的功能，提高了用户交互效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure TfrmCaoZYGLNew.edt1KeyPress(Sender: TObject; var Key: Char);
var
AItem: TListItem;
i: Integer;
isFound: Boolean;
begin
if key = #13 then
begin

AItem := ListView1.FindCaption(nFount, Trim(edt1.Text), True, False, true);

if not Assigned(AItem) then
begin
isFound := False;
for i := 0 to ListView1.Items.Count - 1 do
begin
if Trim(edt1.Text) = ListView1.Items.Item[i].SubItems[0] then
begin
nFount := 0;
isFound := True;
ListView1.Selected := ListView1.Items[i];
ListView1.Items[i].MakeVisible(True); //定位后显示出来
Break;
end
else if (i = ListView1.Items.Count - 1) and not isFound then
begin
MSGWarning('没有找到该操作员');
nFount := 0;
Break;
end;
end;
end
else
begin
ListView1.Selected := AItem;
AItem.MakeVisible(True); //定位后显示出来
if ListView1.Selected.Caption = Trim(edt1.Text) then
nFount := 0
else
nFount := ListView1.Selected.Index;
end;