Кнопка изменяющая размеры относительно текста

[Winexcel]

Здравствуйте! Как можно сделать кнопку которая будет менять свою ширину относительно текста, например как это сделано в TTabItem.

[sinuke]

Ну навскидку можно попробовать вот так:

procedure TForm1.Button1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  Button1.BeginUpdate;
  Button1.Width := Canvas.TextWidth(Button1.Text);
  Button1.EndUpdate;
end;

 

[ENERGY]

Имхо BeginUpdate\EndUpdate тут лишние. Здесь одна операция, а не несколько.

И лучше это будет сделать в OnResize кнопки.

Изменено 14 мая, 2017 пользователем ENERGY