TTMSFMXBadge and Hints

FMX TMS FMX UI Pack
1

Hi,


Hints are not working for the TMSFMXBadge.
The properties Hint and ShowHint are not available designtime.
But they can be set runtime.

However the Hint never shows.

How to test:
* Create a new Multi-device application
* Drop a TTMSFMXBadge on the form
* DblClick on the FORM to create the FormCreate event
* Fill in the lines from below

procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFMXBadge1.Hint := 'Hello Hint';
  TMSFMXBadge1.ShowHint := True;
end;


Can you tell me how I can get this to work ?

TIA 
John
2

Hi, 


you can use the following code instead, internally the badge consists of multiple elements that consume mouse events.



procedure TForm1.FormCreate(Sender: TObject);
begin
  TMSFMXBadge1.NeedStyleLookup;
  TMSFMXBadge1.ApplyStyleLookup;
  TMSFMXBadge1.GetContent.Hint := 'test';
  TMSFMXBadge1.GetContent.ShowHint := true;
end;
Pieter Scheldeman2017-11-27 16:06:09
3

Hi Pieter,


Works like a charm.
Thanks again for fast reply.
4

Pieter,

Strangely it works fine in DEBUG mode, 
but the hint isn't visible in RELEASE mode.

Any ideas why?
5

Hi Pieter,

Something strange is going on and is RELEASE related.
But looks like it's my component is causing the problem.
I'll investigate it more, so you can leave it for now.
6

Hi, 


Thank you for the confirmation