事件是这么用吗?
procedure TForm1.true(Sender: TObject; var Key: Char);
var
Item : TListItem;
begin
if (Form1.ListView1.OnKeyPress=true) then
for i:=0 to listview1.count-1 do
if listview1.Items[i].Checked then
begin
showmessage(listview1.Items[i].Caption);
end;end;
procedure TForm1.true(Sender: TObject; var Key: Char);
var
Item : TListItem;
begin
if (Form1.ListView1.OnKeyPress=true) then
for i:=0 to listview1.count-1 do
if listview1.Items[i].Checked then
begin
showmessage(listview1.Items[i].Caption);
end;end;
解决方案 »
- StringGrid动态产生一个新行问题
- IDTelnet的问题,困扰了很久,请高手指点
- 探讨: 人事系统中树型结构的部门 界面如何做的直观?
- 新人来报到,先散分认识点朋友,来者有分
- 已经为ToolBar指定了Imagelist但是无法显示图片
- 如何动态生成变量,在类中高手指教
- http://community.csdn.net/Expert/topic/3096/3096870.xml?temp=.2118341欢迎讨论
- 哪位可以介绍几个好的视频开发方面的控件!
- 如何在delphi中实现比较精确的模糊查询?
- 如何动态生成TImage中的Canvas并且使用它?
- 关于DELPHI控制任务栏和键盘上的某个键的问题!!!
- 动态二维数组的定义
begin
if listview1.Items[i].Selected then
begin