事件是这么用吗?
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;
解决方案 »
- 又一次问此问题,动态生成按钮数组的问题,希望有人能帮!
- ??文件操作出错!!急!在线等!
- 如何写动态的对象名?
- Delphi调用异类的WebSerivce时,老是提示Internal Server Error(500)
- 100分求助,图形定位问题,使用控件:Image,请给出详细说明。
- 大家好,问两个小问题!请大家帮帮忙,关于控件的!
- 关于OleObject.Document的怪问题
- 借问一下,如何获得NT系统的当前CPU占有率???
- 两个库之间的操作
- 能否不通过数据库控件(如TTable..),而用StringGrid与QReport完成报表?
- 关于DELPHI控制任务栏和键盘上的某个键的问题!!!
- 动态二维数组的定义
begin
if listview1.Items[i].Selected then
begin