DBImageはプログラムによって更新されません

Question

私は困惑しています！ D5ent。 私は12個のデザインタイムSpeedButtonsを持つフォームを持っています。 私は、キャプション、ヒント、およびすべての12個のボタンのグリフを持つデータセットを持っています。 データベースを実行するときに、キャプション、ヒントを割り当て、グリフのビットマップを選択して保存することができます。

ステップバイステップで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対応のコントロールが更新されていない使用している場合、私は...更新、AutoDisplay、LOADPICTUREなどで

おかげ

Answer 1

を台無しています。このようなコントロールからグリフを取り除いているのであれば、それはすべてのボタンが最初のレコードのグリフを持つ理由です。