Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> RadioGroup, Вопрос по этому контролу? 
:(
    Опции темы
ivan219
  Дата 17.9.2006, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Имеем во это
user posted image

Как зделать так чтоб было вот так smile т.е. чтоб было по середине smile 
user posted image

Это сообщение отредактировал(а) ivan219 - 17.9.2006, 14:48


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
VitalikOmsk
Дата 18.9.2006, 11:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 133
Регистрация: 13.10.2005

Репутация: нет
Всего: нет
а почему рисунки одинаковые
PM MAIL   Вверх
Yanis
Дата 18.9.2006, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(VitalikOmsk @  18.9.2006,  12:37 Найти цитируемый пост)
а почему рисунки одинаковые

Потому что читать нужно внимательнее smile

ivan219
Нужно просто получить доступ ко всем кнопкам и просто путём несложных вычислений расположить их посерединке. Доступ осуществляется так:
Код
(RadioGroup1.Components[0] as TRadioButton).Left



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
Romikgy
Дата 18.9.2006, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
ivan219, имхо простейшее это сдвинуть правую сторону, так что б вышло семетрично


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ivan219
Дата 18.9.2006, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Romikgy уменя RadioGroup там их так просто не здвиниш.

Yanis спасибо попробую.

Yanis а если всё это дело заложить в компонент немного подкоректировав код как думаеш получится smile 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
ivan219
  Дата 18.9.2006, 19:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Всё получилось smile 
Код

procedure TForm1.FormCreate(Sender: TObject);
var
   X,Y:Integer;
begin
 X:=RadioGroup1.Width div 2-6;
 Y:=X div 2+35;
(RadioGroup1.Components[0] as TRadioButton).Left:=X-Y;
(RadioGroup1.Components[1] as TRadioButton).Left:=X;
(RadioGroup1.Components[2] as TRadioButton).Left:=X+Y;
end;


user posted image


Yanis +1


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
shatalinalex
Дата 18.10.2006, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 16.10.2006

Репутация: нет
Всего: нет
У меня тоже вопрос по этому компоненту! Как добраться до свойства checked !? Уобычного radiobutton rad.checked:=true и все! а тут как?
PM MAIL   Вверх
Reptile
Дата 18.10.2006, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3
Цитата

Как добраться до свойства checked !? 

А сдесь обращайся так:
Код

 RadioGroup1.ItemIndex

Первый начинается с 0 smile
PM MAIL   Вверх
shatalinalex
Дата 18.10.2006, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 16.10.2006

Репутация: нет
Всего: нет
Код

if RadioGroup1.ItemIndex[0].checked = true then
  begin

  end; 


Вот так пишу! подчеркивает что неправильно! он вообще после RadioGroup1.ItemIndex[0] не раскрывает список функций и свойств.
PM MAIL   Вверх
Reptile
Дата 18.10.2006, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 115
Регистрация: 30.9.2006
Где: Украина, Первомай ск

Репутация: нет
Всего: 3
Я наверно не правильно обьяснил  smile 
Надо:
 
Код

if RadioGroup1.ItemIndex = 0 then
  begin

  end; 


Это сообщение отредактировал(а) Reptile - 18.10.2006, 13:20
PM MAIL   Вверх
Romikgy
Дата 18.10.2006, 13:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Код

procedure TForm1.FormCreate(Sender: TObject);

begin
  RadioGroup1.Items.Add('Vertical');
  RadioGroup1.Items.Add('Horizontal');
  RadioGroup1.ItemIndex := 2;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin
  if RadioGroup1.Items[RadioGroup1.ItemIndex] = 'Vertical' then
    ScrollBar1.Kind := sbVertical;
  if RadioGroup1.Items[RadioGroup1.ItemIndex] = 'Horizontal' then
    ScrollBar1.Kind := sbHorizontal;

end;


Это сообщение отредактировал(а) Romikgy - 18.10.2006, 13:20


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
ivan219
Дата 18.10.2006, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
Код

case RadioGroup1.ItemIndex of
        0:;
        1:;
         .
         .
end;


Это сообщение отредактировал(а) ivan219 - 18.10.2006, 13:31


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
shatalinalex
Дата 18.10.2006, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 16.10.2006

Репутация: нет
Всего: нет
Ок, спасибо понял!
PM MAIL   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0525 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.