http://bbs.csdn.net/topics/390458211的继续提问 暂时无空,把你的项目原封不动发我邮箱,等下我看看 [email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key = 38 then ListBox1.Selected[ListBox1.ItemIndex - 1] := true else if key = 40 then ListBox1.Selected[ListBox1.ItemIndex + 1] := true;end; 朋友生子,帮忙起名!! 大家有用过MSDE的吗?那个东东有什么优点? 如何在delphi中添加自定义控件!! Access数据表的读取 如何去除TTable组件的登录提示? 怎样在TTabledNoteBook中的几个页面之间跳转? 数据过滤问题! 关于使用Wininet单元 InternetDial无法进行拨号的问题 我是新手,请帮我!!!关于power函数的 大家快来讨论一下一个很古老的问题,delphi,java,asp,vb哪个厉害,哪个最赚钱,哪个前途大 程序A如何抓取程序B中的TDBGRIDE控件内显示的内容 WIN7 64位+IE9 ocx插件不能断点调试
Shift: TShiftState);
begin
if key = 38 then
ListBox1.Selected[ListBox1.ItemIndex - 1] := true
else if key = 40 then
ListBox1.Selected[ListBox1.ItemIndex + 1] := true;
end;