Добавить функциональность WordWrap для кнопок ButtonGroup в Delphi XE3

Question

В настоящее время TButtonGroup не имеет собственности WordWrap. Я искал способ иметь такую ​​функциональность, но мой поиск примеров до сих пор не приносил никаких результатов.

Мой вопрос: как добавить функцию wordwrap для заголовка кнопок в TButtonGroup? Можете ли вы привести мне пример или вести меня на правильном пути? Ваш ответ очень благодарен! BTW Я использую delphi XE3

Answer 1

Простой wordwrap уже произойдет, что можно увидеть, если вы измените заголовок во время выполнения, отредактировав DFM следующим образом.

Items = < 
    item 
    Caption = 'Word'#13'Wrap'#13'3 Lines' 
    end 
    ... 

Но по умолчанию картина с WordWrap не будет выглядеть хорошо.
Вы могли бы реализовать OnDrawButton, но это должно было бы написать много кода.
Самый быстрый способ будет установить gboShowCaption в ButtonOptions ложь и реализации OnAfterDrawButton вроде этого:

procedure TForm1.ButtonGroup1AfterDrawButton(Sender: TObject; Index: Integer; Canvas: TCanvas; Rect: TRect; State: TButtonDrawState); 
var 
s:String; 
begin 
    InFlateRect(Rect,-4,-4); 
    s := TButtonGroup(Sender).Items[Index].Caption; 
    Canvas.TextRect(Rect,s,[tfWordBreak,tfCenter]); 
end;