How do I double underline my TLabel text in delphi?

Question

How can I have a double underline for my labels?

So basically I want two lines at the bottom of the text instead of one. How can this be achieved?

Here is a screenshot of what I am trying to replicate. Look at the double underline on the "Contact" text:

Answer 1

If FMX is involved, you can easily use a personal style. Something like that should do the trick

Warning : if multi-os put the style in the "default" style collection.

Todo : to take in charge the label width, find style resource 'underlines' and modify margins. Advantage, with the same resource you can change color, change to only one side etc.

In the same way, and without involving styles, you can just add a TRectangle child of TLabel (less funny)