Главная страница
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.01 c
8-97358
dorixe
2001-12-30 14:57
2002.05.30
Gif


6-97367
Romanew
2002-03-18 19:09
2002.05.30
Как сделать запрос поисковой системе


3-97168
Jaric
2002-05-07 16:27
2002.05.30
Как сохранить результат запроса в физическую таблицу на диске?


3-97207
Snake
2002-05-06 16:12
2002.05.30
Не работает Locate!


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