Вопрос по RadioGroup [D6, WinXP]
lovres © (2002-09-20 10:02:00)
Вопрос в том, что некоторые элементы не помещаются в одной
строке, а я не как не могу найти как организовать перенос(думал
что-нить вроде WordWrap есть).Как это сделать - подскажите,
пожалуйста?
Ученик (2002-09-20 10:17:00) [1]
procedure TForm1.FormShow(Sender: TObject);
var
i : Integer;
begin
with RadioGroup1 do
for i := 0 to ControlCount - 1 do
if Controls[i] is TRadioButton then
with TWinControl(Controls[i]) do
SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle,
GWL_STYLE) or BS_MULTILINE)
end;
Наверх 
ЧАТ |
Орешник |
|
