if en=true then
cl:=clWindow
else
cl:=clScrollBar; for I:=0 to Panel2.ControlCount - 1 do
begin
Temp:= Panel2.Controls[i];
if temp is TDBEdit then
(temp as TDBEdit).Color:=cl;
end;
cl:=clWindow
else
cl:=clScrollBar; for I:=0 to Panel2.ControlCount - 1 do
begin
Temp:= Panel2.Controls[i];
if temp is TDBEdit then
(temp as TDBEdit).Color:=cl;
end;
解决方案 »
- 三层架构 Remote data module
- 图片、图标、声音等资源如何整合?
- 在DELPHI 下如何使用 用C ++ BUILDER 6 写的COM
- 大家谁有在quickreport 下 显示条形码的控件呀?(支持REPORT的条码显示控件就行)FOR D5的
- 问题啊,拜托高手来看一下
- 为什么我在用BDE Administrator连接ACCESS数据库时,我都无给ACCESS加密码,系统却提示我输入用户名密码?
- 给一个大专院校做学生管理系统,给熟人做的,做了差不多2个月,要6K过不过分?
- 如何向数据库(access)追加jpg文件?
- 求助:如何使程序在不同分辨率下正常显示在屏幕右侧。
- [高手请进,SQL服务器数据备份方案(程序中)]
- 设计中,启动画面,登录窗口,能否不在主窗口的Create事件中?
- dll
begin
Temp:= panel2.Controls[i];
if temp is TDBEdit then
if (temp as TDBEdit).Enabled = false then
(temp as TDBEdit).Color:=clScrollBar
else
(temp as TDBEdit).Color:=clWindow;
if temp is TRadiobutton then
if (temp as TRadiobutton).Enabled = false then
(temp as TRadiobutton).Color:=clScrollBar
else
(temp as TRadiobutton).Color:=clWindow;
if temp is TDBCombobox then
if (temp as TDBCombobox).Enabled = false then
(temp as TDBCombobox).Color:=clScrollBar
else
(temp as TDBCombobox).Color:=clWindow;
end;