2,507
社区成员
发帖
与我相关
我的任务
分享在dbctrlgrid中如何单独对指定的数据显示控件设置背景色？（半天没弄出来，急）
假设用一个DBctrlgrid连接到一个数据集上，在它的上面放置一个DBEDIT控件，和数据集某个字段连接，大家知道程序运行起来,DBGRID控件将在上面根据记录的多少动态创建DBEIDT，将数据依次排列其中，但是我想根据记录的值作为判断条件，指定某个DBEDIT中的字体颜色，就是因为它是动态创建的，所以我也不知道让程序如何找到对应的DBEDIT，我在属性中设置颜色，全都变了，我就是要找到某个动态创建的DBEDIT，然后单独它的字体赋上颜色，怎么办？我折腾了半天，还不行。
...全文
请发表友善的回复…
发表回复
fancyh 2004-09-29
- 打赏
- 举报
请问解决了吗?
richall 2004-03-30
- 打赏
- 举报
dbctrlgrid.onpaintpanel
在这里边，改变panel的颜色
在这里边，改变panel的颜色
jiangopen 2004-03-30
- 打赏
- 举报
秋风啊，不行啦，我试过，数据集一滚动全部都变色了，不该变的也变了。
楚人无衣 2004-03-30
- 打赏
- 举报
先找到它，再赋值，下面权作参考，希望对你有些帮助：
procedure TForm1.Button1Click(Sender: TObject);
var
DBEdit1: TDBEdit;
begin
DBEdit1 := TDBEdit(self.FindComponent('DBEdit1'));
if (DBEdit1 <> nil) and (DBEdit1.Text = '要找的记录') then
DBEdit1.Font.Color := clBlue;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
DBEdit1: TDBEdit;
begin
DBEdit1 := TDBEdit(self.FindComponent('DBEdit1'));
if (DBEdit1 <> nil) and (DBEdit1.Text = '要找的记录') then
DBEdit1.Font.Color := clBlue;
end;
jiangopen 2004-03-30
- 打赏
- 举报
哪位高手帮帮我
godnoloveihavelove 2004-03-30
- 打赏
- 举报
你这个问题很难，解决起来应该是很困难的，能不能解决还不好说
godnoloveihavelove 2004-03-30
- 打赏
- 举报
我看了一下，这可不是什么简单的问题，我从没用过你说的那个组件，现在看了看，知道是什么了
jiangopen 2004-03-30
- 打赏
- 举报
来想想办法，我都等了半天了.......
jiangopen 2004-03-30
- 打赏
- 举报
在DBctrlgrid中放入的DBEDIT是根据记录的多少自动创建的，这本来就是这个控件的特性，无需人工干预，但是问题就在于，我要将其中的一个dbedit的字体改变颜色，通过设置属性的方法是行不通。
godnoloveihavelove 2004-03-30
- 打赏
- 举报
指定某个DBEDIT中的字体颜色，就是因为它是动态创建的，
你这是动态创建什么，我看半天没看懂你意思
你这是动态创建什么，我看半天没看懂你意思
jiangopen 2004-03-30
- 打赏
- 举报
秋风啊，我试了，行不通的，你也来研究研究吧，这个看似简单，但是又很棘手的问题
楚人无衣 2004-03-30
- 打赏
- 举报
那你就写在数据集的AfterScroll事件中吧
jiangopen 2004-03-30
- 打赏
- 举报
richall，我要改的是DBEDIT中的字体颜色，就算是改panel的颜色又如何办？（单独改）
快来帮我................
快来帮我................
