var
i: integer;
begin
for I := 1 to ComponentCount do
begin
if components[i] is tcombobox then
(components[i] as tcombobox).enabled:=false;
end;
end;
i: integer;
begin
for I := 1 to ComponentCount do
begin
if components[i] is tcombobox then
(components[i] as tcombobox).enabled:=false;
end;
end;
解决方案 »
- Delphi 代码跟踪的问题
- Delphi与SQLServer连接后,验证数据库数据时候出问题,还是没有解决,为什么?
- 高分求解半透明窗体(UpdateLayeredWindow)时子控件显示问题!
- 用adoquery将excel表读出来以后,可以当作一般的adotable处理吗?
- (Delphi+Access)做的数据库,怎么封装?
- D5的巨大bug
- dll窗体嵌套
- 怎样实现将数据用图形可视化??
- activex大小,和图标?
- 求教 如何用delphi操作IE或webbrowser的Cookie
- 如何获取本机现在时间,急,马上给分,
- sql server 有没有自动加行号的字段???????
I: Integer;
...
for I := 0 to ComponentCount - 1 do
begin
if Components[I] is TComboBox then
TComboBox(Components[I]).Enabled := False;
end;