Kod: Tümünü seç
procedure TForm1.ListView1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key >= '0') and (Key <= '9') then
begin
ListView1.Selected.Caption:=Key;
if ListView1.Items.Count< ListView1.ItemIndex+1 then ListView1.ItemIndex := ListView1.ItemIndex + 1
end
else
Key := Chr(0);
end;