Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.008 c
3-97119
Oleg_er
2002-05-06 07:26
2002.05.30
В чем ошибка? - ругается на несовместимость типов!


14-97401
DT
2002-04-22 11:52
2002.05.30
MS visual C++ vs Borland C++ builder


1-97250
spi
2002-05-17 08:19
2002.05.30
Ошибка в try-finally-end?


1-97300
RaZEr_
2002-05-15 19:49
2002.05.30
Проблема сохранения в файл


1-97310
_SnAke_
2002-05-19 14:10
2002.05.30
Динамические массивы в Д3 (Срочно)