var
i:integer;
begin
for i:=0 to componentcount -1do
if components[i] is Tcombobox then
tcombobox(components[i]).text:='';
end;
其他都一样了!
i:integer;
begin
for i:=0 to componentcount -1do
if components[i] is Tcombobox then
tcombobox(components[i]).text:='';
end;
其他都一样了!
解决方案 »
- 招3名DELPHI程序开发人员
- 关于字体安装的问题。请教高手们
- 急:关于txt文件读取
- 调用oracle存储过程的问题,急?参数怎么处理?
- [请教]如何实现拖动Treeview某一节点到另一侧窗口显示
- ActiveForm问题,在客户端即使将IE的本地Intranet的安全级别降到最低,也无法提示下载?
- 谁知道哪里有好的打印控件下载!
- 在dpr文件中写明Application.ShowMailForm:= false后,如何结束程序?
- 怎样侦测ADOCONNECTION是否已同SQLSERVER连接
- 如何使ToolBar控件在窗口一激活就Dock到CooBar控件上?
- SQL语句问题(等待)
- 临时表更新问题?
var
i:integer;
begin
FOR i:=0 to Controlcount-1 do
begin
if controls[i].classname='TCheckbox' then
begin
if not (controls[i] as TCheckbox).checked then
//这里加不是TRUE后,你要干什么
end;
end;
end;