Главная страница
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
1-97244
ДК
2002-05-20 15:17
2002.05.30
Размер


7-97437
Алекс
2002-03-06 11:15
2002.05.30
Помогите найти apollo для Delphi


1-97233
MaximatorVeter
2002-05-20 15:34
2002.05.30
К коллекционерам! Как создать свою коллекцию?


6-97371
Antoshka
2002-03-21 09:36
2002.05.30
Загрузить файл с Интернета


4-97457
Landgraph
2002-03-28 14:46
2002.05.30
Чтение содержимого каталога...