procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.MultiSelect := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ListBox1.Items.Count - 1 do
if ListBox1.Selected[I] then
ShowMessage(ListBox1.Items[I]);
end;
begin
ListBox1.MultiSelect := True;
end;procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ListBox1.Items.Count - 1 do
if ListBox1.Selected[I] then
ShowMessage(ListBox1.Items[I]);
end;
解决方案 »
- ftp下载是提示thumbs.db拒绝访问
- kye_jufei 來接分
- 动态数组的收和发,英雄贴(****系列之三****)
- 我怎么得到某一个表中的某一数据类型 字段大小 默然值的
- 忘了退出while循环的命令,谢谢!马上结帖。
- 怎么样实现jpg图片直接存取SQL SERVER数据??
- dephi大牛知道一下win7中delph6中使用控件写EXECL,但是每次保存之后EXECL2010都会报“EXECL已停止工作”
- 请教ADO的Parameter能不能按名字对应
- 在数据库中查找是否有重复的记录?
- 关于自定义从Frame继承的组件的问题?回答正确后给100分
- 就是sql的 问题??
- 请问哪里有DELPHI的中文帮助下载?
谢谢了!