showmessage(inttostr(ListBox1.ItemIndex));
解决方案 »
- Application.Terminate仍执行后面的代码
- RAVE报表为何指定打印1-2页,却会将全部打印出来?如何解决?
- qing wen: DBGrid zhong ruhe panduan jilu you mei you bei xuanzhong?
- 请教,要实现TCP/IP通讯用什么控件啊(名称,位置)?
- 请教一个很菜的问题:why 我的DBCHART和decision cube组件不能用?
- 在2K中如何将进程注册为服务进程?
- 在delphi5.0中可以调用另一个窗体的Query吗?谢谢
- 送分了
- 各位高手帮帮忙!
- Codelphi网站推荐的《Delphi技术手册》怎么样啊有买的人吗,评论一下
- 在keypress中如何屏蔽del键??
- 高手帮忙啊!如何实现一个搜索功能
I :integer ;
begin
for I := 0 to ListBox1.Items .count-1do
begin
if ListBox1.Selected[i] then
showmessage(inttostr(i))
end ;
end;
I :integer ;
begin
for I := 0 to ListBox1.Items .count-1do
begin
if ListBox1.Selected[i] then
showmessage(inttostr(i))
end ;
end;