Winexcel Опубликовано 14 мая, 2017 Поделиться Опубликовано 14 мая, 2017 Здравствуйте! Как можно сделать кнопку которая будет менять свою ширину относительно текста, например как это сделано в TTabItem. Цитата Ссылка на комментарий
0 sinuke Опубликовано 14 мая, 2017 Поделиться Опубликовано 14 мая, 2017 Ну навскидку можно попробовать вот так: procedure TForm1.Button1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); begin Button1.BeginUpdate; Button1.Width := Canvas.TextWidth(Button1.Text); Button1.EndUpdate; end; Цитата Ссылка на комментарий
0 ENERGY Опубликовано 14 мая, 2017 Поделиться Опубликовано 14 мая, 2017 (изменено) Имхо BeginUpdate\EndUpdate тут лишние. Здесь одна операция, а не несколько. И лучше это будет сделать в OnResize кнопки. Изменено 14 мая, 2017 пользователем ENERGY #WAMACO 1 Цитата Ссылка на комментарий
Вопрос
Winexcel
Здравствуйте! Как можно сделать кнопку которая будет менять свою ширину относительно текста, например как это сделано в TTabItem.
Ссылка на комментарий
2 ответа на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.