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

На форме разместить два компонента TEdit, четыре флажка CheckBox и кнопку Button1

23.09.2013, 13:43. Просмотров 618. Ответов 8
Метки нет (Все метки)

На форме разместить два компонента TEdit, четыре флажка CheckBox и кнопку Button1. Ввести значения двух чисел Х и Y с помощью элементов TEdit (свойство Text). При выборе первого флажка вычислить значение 2Х, при выборе второго флажка вычислить значение 2Y , при выборе третьего флажка вычислить значение Х/2, при выборе четвертого флажка вычислить значение Y/2. Вычисления выполнять по щелчку по кнопке. Результаты вывести в с помощью сообщений ShowMessage.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.09.2013, 13:43
Ответы с готовыми решениями:

Как разместить кнопку на компоненте Tedit или Tcombobox?
как разместить кнопку на компоненте Tedit или Tcombobox

Разместить на форме кнопку, при каждом нажатии на которую, форма уменьшается в размерах
Разместить на форме кнопку, при каждом нажатии на которую пусть форма...

Установить на форму компоненты ListBox и ComboBox, два компонента edit и кнопку
Установить на форму компоненты ListBox и ComboBox, два компонента edit и...

как при снятии флажка CheckBox минусовать сумму
Всем привет. Помогите новичку с делфи. Вобщем, суть такова, что нужно написать...

Изменить цвет текста компонента Tedit
На форме есть 7 компонентов Tedit. По нажатию кнопки данные из них считываются...

8
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
23.09.2013, 14:02 2
И в чем проблема? Размещай.

Добавлено через 10 минут
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);
if checkbox1.Checked then showmessage('2x='+floattostrF(2*x,fffixed,8,2))
else if checkbox2.Checked then showmessage('2y='+floattostrF(2*y,fffixed,8,2))
else if checkbox3.Checked then showmessage('x/2='+floattostrF(x/2,fffixed,8,2))
else if checkbox4.Checked then showmessage('y/2='+floattostrF(y/2,fffixed,8,2))
else showmessage('не выбрано действие')
 
end;
1
Kird
0 / 0 / 0
Регистрация: 16.03.2013
Сообщений: 31
23.09.2013, 14:10  [ТС] 3
Спасибо )
0
angstrom
2471 / 1847 / 242
Регистрация: 14.09.2012
Сообщений: 5,981
Записей в блоге: 2
23.09.2013, 14:17 4
Ерунда какая-то. А если CheckBox-ы выделены не по одному? Уж тогда удобнее TRadioButton-ы использовать.
0
MrOnlineCoder
Всегда онлайн
498 / 421 / 171
Регистрация: 07.04.2013
Сообщений: 1,834
Завершенные тесты: 2
23.09.2013, 21:05 5
Kird, зачем создавать две темы?
0
angstrom
23.09.2013, 22:24
  #6

Не по теме:


При этом, во-второй теме просить код, который уже дан ранее.

0
Kird
0 / 0 / 0
Регистрация: 16.03.2013
Сообщений: 31
24.09.2013, 08:47  [ТС] 7
Там один нужен с переключателем ,а другой с чакбоксами
0
Kird
0 / 0 / 0
Регистрация: 16.03.2013
Сообщений: 31
28.09.2013, 09:10  [ТС] 8
А можешь для радио кнопок написать ?
0
Puporev
Модератор
55478 / 42579 / 29428
Регистрация: 18.05.2008
Сообщений: 100,728
28.09.2013, 10:19 9
Цитата Сообщение от Kird Посмотреть сообщение
А можешь для радио кнопок написать ?
Совсем уже немощный?
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);
if RadioButton1.Checked then showmessage('2x='+floattostrF(2*x,fffixed,8,2))
else if RadioButton2.Checked then showmessage('2y='+floattostrF(2*y,fffixed,8,2))
else if RadioButton3.Checked then showmessage('x/2='+floattostrF(x/2,fffixed,8,2))
else if RadioButton4.Checked then showmessage('y/2='+floattostrF(y/2,fffixed,8,2))
else showmessage('Г*ГҐ âûáðГ*Г*Г® äåéñòâèå')
end;
Добавлено через 2 секунды
Цитата Сообщение от Kird Посмотреть сообщение
А можешь для радио кнопок написать ?
Совсем уже немощный?
Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
x:=strtofloat(edit1.Text);
y:=strtofloat(edit2.Text);
if RadioButton1.Checked then showmessage('2x='+floattostrF(2*x,fffixed,8,2))
else if RadioButton2.Checked then showmessage('2y='+floattostrF(2*y,fffixed,8,2))
else if RadioButton3.Checked then showmessage('x/2='+floattostrF(x/2,fffixed,8,2))
else if RadioButton4.Checked then showmessage('y/2='+floattostrF(y/2,fffixed,8,2))
else showmessage('Г*ГҐ âûáðГ*Г*Г® äåéñòâèå')
end;
1
28.09.2013, 10:19
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.09.2013, 10:19

Как сделать так, чтобы при нажатии button1 менялось название компонента, который в edit1 (ButtonL)?
Есть две формы Form1 и Form2 В Form1 есть buttonL. В Form2 есть edit1 и...

При наведении курсора на неактивную кнопку button1.enabled:=false
выдавать сообщение "Вы не ввели слово"

Разместить еще одну кнопку button2 чтобы она было ровно кнопкой Button1
Здравствуйте! Я создал одну кнопку Button1 в jFrame разместил сверху окна. Вот...


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

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

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