| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Перенос строк в RadioGrup [D5, WinME]

Kabal ©   (2002-05-18 06:47:00) 

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

---

Alx2   (2002-05-18 08:21:00) [1]

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

---

Alx2   (2002-05-18 08:18:00) [2]

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

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;


---

Наверх