Текущий архив: 2002.05.30;
Скачать: CL | DM;

Вниз

Перенос строк в RadioGrup   Найти похожие ветки 

← →
Kabal ©   (2002-05-18 06:47) [0]

Писал тест, для возможных вариантов ответов использовал TRadioGroup. Но некоторые строки превышаютт длину формы раза в полтора. Реально ли сделать перенос строк в этом компоненте?

---

← →
Alx2 ©   (2002-05-18 08:18) [1]

Реально. Вот работающий пример:

Procedure TLogoAppForm.Button1Click(Sender: TObject);
Var K, Style: Integer;
RB: TRadioButton;
Begin
For K := 0 To RadioGroup11.ControlCount - 1 Do
If RadioGroup11.Controls[K] Is TRadioButton Then
Begin
RB := RadioGroup11.Controls[K] As TRadioButton;
Style := GetWindowLong(RB.Handle, GWL_STYLE);
Style := Style Or BS_MULTILINE; // - Решение здесь.
SetWindowLong(RB.Handle, GWL_STYLE, Style);
End;
RadioGroup11.Invalidate; // Перерисоваться не забываем :)
End;


---

← →
Alx2 ©   (2002-05-18 08:21) [2]

В догонку:
Высоту RadioButtonов тоже придется подкорректировать, иначе надписи могут наложиться одна на другую.

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.30;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.013 c