var
i:=integer;
begin
for i:=1 to 25 do
begin
listbox[i].checket:=true;
end;
i:=integer;
begin
for i:=1 to 25 do
begin
listbox[i].checket:=true;
end;
解决方案 »
- 环境DC句柄 与 Canvas画布
- 获取网络拨号连接列表
- fastreport 报表问题
- 请教大家:关于如何实现应用程序服务器的pooling、Apartment Model功能?? 看过李维分布式书籍或Delphi下的Pooler Demo的朋友请帮忙。。
- 请问用哪个API函数可以直接得到硬盘的ID号码?
- 无法识别的数据格式,什么原因?
- 我刚装上XPMenu控件,觉得不爽,怎么卸掉它,有谁知道金山词霸2002具体是哪一套XPMenu做的吗?请告诉我详细下载地址?
- zeus:要申请技术支持空间的可以过来看看
- 类中没有声明继承方式的属于什么继承 如下{。。。}中部分
- ==**如何使上一个TabOrder的值的控件获得焦点?**==
- 300分求解!!!IE工具栏的编程锁定、占一行、菜单中去除问题
- DSPack DVD 没有声音
应该是i:integer;吧
Idx: Integer;
begin
for Idx := 0 to Pred(ControlCount) do
begin
if Controls[Idx] is TListBox then
begin
TListBox(Controls[Idx]).Style := lbOwnerDrawFixed;
TListBox(Controls[Idx]).ItemHeight := 30;
end;
end;
end;