Question

I want to dynamically change the caption on a TButton. The problem is that TButton doesn’t resize itself if the caption is too long to fit on the button; so the text bleeds over the edges of the button.

How can I get the button to change size to fit the caption?

Some ideas:

• Use a different button component that can resize itself. Is there one?
• Subclass TButton and set AutoSize=True (haven’t tried this, don’t know if it will work).
• Calculate the size of the caption in pixels and manually change the width every time I change the caption.

Answer 1

I ended up going with option 3 (“Calculate the size of the caption in pixels and manually change the width every time I change the caption”)

My code looks somthing like this:

// Called from the form containing the button
button.Caption := newCaption;
button.Width := self.Canvas.TextWidth(newCaption);