DBImage不以编程方式刷新

我很难过！ D5ent。我有一个表格上有一打设计时间的SpeedButtons。我有一个数据集的标题，提示和所有十二个按钮的字形。当我运行数据库时，我可以分配标题，提示，为字形选择并存储位图。DBImage不以编程方式刷新

当我使用DBNavigator逐步浏览时，它正确显示每个按钮的每个位图的单独DBImage。但是在运行时，并非如此。

我有这段代码，虽然数据集的步骤，当我ShowModal的形式所有的按钮都有正确的单独的标题和提示，但他们都有第一个按钮相同的字形。

procedure LoadButtons; 
    procedure SetButton(var aBtn : TSpeedButton); 
    begin 
    aBtn.Hint:=tblButtons.FieldByName('Hint').AsString; 
    aBtn.Caption:=tblButtons.FieldByName('Caption').AsString; 
    aBtn.Glyph.Assign(dbimgButton.Picture.Bitmap); 
    end; 
begin 
    tblButtons.First; 
    BtnCtr:=1; 
    repeat 
    case BtnCtr of 
     1 : SetButton(btn1); 
     2 : SetButton(btn2); 
     3 : SetButton(btn3); 
     // ... to twelve 
    end; 
    tblButtons.Next; 
    Inc(BtnCtr); 
    until tblButtons.EOF; 
end;

end;

我哪里错了？我已如果您使用，同时通过数据集循环不更新DisableControls则db感知控件搞砸与更新，自主展示，等的LoadPicture ...

感谢

来源

2012-04-16 user983145

我不明白。我还没有收到任何答案。 – user983145 2012-04-16 00:27:13

删除DisableControls，我不知道'dbimgProgram'是什么，但是如果它是一个db-aware控件，那么它不会因为DisableControls而更新。 – 2012-04-16 00:28:09

AAAArrrggghhhhhh谢谢Sertac。今晚没有啤酒给我！ – user983145 2012-04-16 00:31:29

。如果您正在从这样的控件中分配字形，那么这就是为什么所有按钮都具有第一条记录的字形的原因。

来源

2012-04-16 00:38:45

+1为pyschic调试技能。很好的结果，而且OP在你上面的评论中已经说过了。 :) – 2012-04-16 00:39:55

DBImage不以编程方式刷新

回答

相关问题