我很難過! 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 ...
感謝
我不明白。我還沒有收到任何答案。 – 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