Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Bravo32
0 / 0 / 0
Регистрация: 03.04.2013
Сообщений: 22
1

RadioGroup

14.05.2013, 15:08. Просмотров 955. Ответов 4
Метки нет (Все метки)

Разработайте приложение из главной и одной немодальной подчиненной формы. На главной форме поместить компонент RadioGroup и задать в его свойстве Items три альтернативы: отрезок, прямоугольник, круг. Запрограммируйте: при щелчке мышью по альтернативе в компоненте RadioGroup вызывается немодальная форма и на ее холсте рисуется соответствующая фигура (положение и размер – любые).
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2013, 15:08
Ответы с готовыми решениями:

RadioGroup
procedure TForm1.Button1Click(Sender: TObject); const g=9.8; var h,t:real;...

RadioGroup
Как написать программу для удаления нечетных символов, через нажатие в...

if radioGroup
Почему не компилит мой быдло код? if RadioGroup1.ItemIndex = 0 then...

Radiogroup
Здравствуйте, имеется 2 radiogroup, в каждом по 2 строчки, как написать условие...

Radiogroup items
Добрый день! Скажите, можно ли менять количество и состав элементов элемента...

4
DenNik
Непрофессионал
1803 / 1469 / 307
Регистрация: 26.07.2011
Сообщений: 8,065
14.05.2013, 15:10 2
Это приказ, заказ или просьба?
0
Bravo32
0 / 0 / 0
Регистрация: 03.04.2013
Сообщений: 22
14.05.2013, 16:35  [ТС] 3
Просьба
0
thesoftdevcom
7 / 7 / 5
Регистрация: 01.01.2012
Сообщений: 111
14.05.2013, 17:31 4
Ну на вскидку как-то так (на первой форме соответственно RadioGroup с Form2.Show на OnClick):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm2.FormPaint(Sender: TObject);
begin
  case Form1.RadioGroup1.ItemIndex of
    0:
    begin
      //Отрезок
      Self.Canvas.Brush.Color := clBlack;
      Self.Canvas.MoveTo(100,100);
      Self.Canvas.LineTo(60,200);
    end;
    1:
    begin
      //Прямоугольник
      Self.Canvas.Rectangle(50,25,300,150);
    end;
    2:
    begin
      //Круг
      Self.Canvas.Ellipse(50,50,200,200);
    end;
  end;
end;
1
DenNik
Непрофессионал
1803 / 1469 / 307
Регистрация: 26.07.2011
Сообщений: 8,065
14.05.2013, 17:39 5
Цитата Сообщение от thesoftdevcom Посмотреть сообщение
Self.Canvas.Brush.Color := clBlack;
цвет кисти (Brush.Color) на отображение отрезка методом LineTo не влияет (есть свойство Pen.Color)
0
14.05.2013, 17:39
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2013, 17:39

ADOTable и RadioGroup
Всем здравствуйте! Возникла такая проблема: необходимо что бы по нажатию...

RadioGroup в Delphi
Привет всем Есть компонент радиогрупп и в нем 5 элемента: 0 1 2 3 4 При...

Radiogroup и checklistbox
как сделать через Radiogroup и checklistbox if Edit1.Text <> '' then ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru