TDBAdvGrid and balloons

VCL TMS VCL UI Pack
1

Hello,
I'm trying to add ballons on a TDBAdvGrid component by using the OnCellBalloon event, but they are never showed.
I followed exactly your example asg76, I also set with object inspector the property DBAdvGrid.Balloon.Enabled = true.
I tried with several DBAdvGrids that are present in my application but without success.
Maybe there is some other property to be set?

I have TDBAdvGrid version 2.3.1.0

Thank you for your help

Best Regards
Piero Roncoletta

2

Are themes enabled on app level?

3

Hello Bruno,

thank for your suggestion, I set the "Enable runtime themes" check box in the project options and now I can see ballons. But I still have some problem.
In fact, my DBAdvGrid belongs to a TAdvSmoothTabPage component; each time I select a tab in the TabPager, I change the DBGrid's parent to the new active page, and I reload grid's data, that is:

procedure TDBCenterForm.AdvSmoothTabPagerChange(Sender: TObject);
begin
   DBAdvGrid.Parent:=AdvSmoothTabPager.ActivePage;
   ReloadData;
end;

After this, the OnCellBalloon event doesn't work anymore, so in effect I see balloons on the grid only if I never change the parent, of course I cannot work in this way.
I put a breakpoint in the OnCellBalloon event, and I verified that it isn't called after changing DBAdvGrid's parent.
Do you have some suggestion to solve for this?

Thank you very much
Piero

4

Try to add to your code:


procedure TDBCenterForm.AdvSmoothTabPagerChange(Sender: TObject);
begin
   DBAdvGrid.Balloon.Enable := false; 
   DBAdvGrid.Parent:=AdvSmoothTabPager.ActivePage;
   DBAdvGrid.Balloon.Enable := true; 
   ReloadData;
end;
5

Thank you Bruno, now it works!