5,388
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.lstVSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
begin
if Selected=False then Exit;
ShowMessage(Item.Caption);
//下面2个改变焦点还会再调用一次OnSelectItem
// lstV.ItemIndex:=-1;
lstV.Selected:=nil;
end;