可以。只要响应窗体的键盘事件来处理就行了。
if Key = VK_UP then
if a.SelIndex>1 then
begin
a.GetSelItems(1,2,'1');
a.SelIndex := a.SelIndex -1;
end
else
begin
a.GetSelItems(1,2,'1');
a.SelIndex := a.ItemCount;
end;
if Key = VK_DOWN then
if a.SelIndex < a.ItemCount then
begin
a.GetSelItems(1,2,'1');
a.SelIndex := a.SelIndex + 1;
end
else
begin
a.GetSelItems(1,2,'1');
a.SelIndex := 1;
end;
if Key = VK_LEFT then
begin
I:=StrToInt(a.GetSelItems(0,2,''));
a.GetSelItems(1,2,IntToStr(I+1));
end;