![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по компоненту RadioGroup [D7]
Бэтман © (2007-11-25 01:30:00)Необходимо подпись к одной из радиокнопок сделать в несколько строк. Подскажите как это сделать ?
{RASkov} (2007-11-25 11:04:00) [1]> не уверен... в таком варианте, (как мне помнится) WordWrap не доступен.
Доступен.... так как
property Buttons[Index: Integer]: TRadioButton read GetButtons;
т.е. все свойства TRadioButton доступны, а в D7 у данного контрола появилось таки свойство WordWrap.
KilkennyCat (2007-11-25 09:08:00) [2]
> Loginov Dmitry © (25.11.07 07:56) [8]
не уверен... в таком варианте, (как мне помнится) WordWrap не доступен.
Loginov Dmitry (2007-11-25 07:56:00) [3]> TRadioButton(RadioGroup1[n].Components[n]).WordWrap:=true;
Так, кажется, было бы проще:
RadioGroup1.Buttons[n].WordWrap := True;
Германн (2007-11-25 02:33:00) [4]
> Бэтман (25.11.07 02:19) [5]
>
> В седьмой тоже походу нету,
Юра, будешь возникать?
:-)
Очевидно не будешь. И я с тобой согласен.
Русский в письме и русский в и-нете - это две большие разницы.
Хотя и жаль, что наши детки родной язык не знают.
KilkennyCat (2007-11-25 02:27:00) [5]ну тогда так:
const BS_MULTILINE = $2000;
type
TMyRadioButton = class(TRadioButton)
protected
procedure CreateParams(var Params: TCreateParams); override;
public
constructor Create(AOwner: TComponent); override;
end;
constructor TMyRadioButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
procedure TMyRadioButton.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style:=Params.Style or BS_MULTILINE;
end;
end.
Бэтман (2007-11-25 02:19:00) [6]В седьмой тоже походу нету, я использую альтернативные компоненты там есть такое свойвство.
Германн (2007-11-25 02:12:00) [7]
> KilkennyCat © (25.11.07 01:57) [2]
В Д6 у TRadioButton нет свойства WordWrap. В Д7 оно появилось?
Бэтман (2007-11-25 02:08:00) [8]Большое спасибо )
KilkennyCat (2007-11-25 01:57:00) [9]TRadioButton(RadioGroup1[n].Components[n]).WordWrap:=true;
Германн (2007-11-25 01:40:00) [10]Имхо, никак без написания наследника. (Отвечаю только за Д6).