day & night

CheckBox, Нужен совет
Дата обновления: , перейти к новому сообщению
#1
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Подскажите, как одним CheckBox'ом обработать несколько событий???

Например:
procedure TMyForm.CheckBox1Click(Sender: TObject);
begin
case CheckBox1.State of
cbUnchecked: ...;
...; и т.д
cbChecked: ...;
...; и т.д
end
end;

С уважением, Serik.
User is offline
Go topGo end

Ответов(10 - 19)
10.08.2004 - 10:00
#11
Dimasty



Unregistered
Цитата | Quote(Serik @ Среда, 04 Августа 2004, 21:32)
Может быть и так, но в формуле необходимо менять параметры всякими там CheckBox'ами и RadioButton'ами.
Будем думать, испытывать, экспериментир-р-ровать smile.gif
Может быть воткнуть скриншот smile.gif))

Не проще ли написать парсер?
Go topGo end
10.08.2004 - 15:06
#12
Paladin



профи!
Group Icon

Группа: Наши Люди
Сообщений: 944
Регистрация: 7.03.2004
Из: г. Абакан
Пользователь №: 303


Респектов: 11
-----X----
Цитата | Quote(Dimasty @ Вторник, 10 Августа 2004, 15:00)
Не проще ли написать парсер?

А теперь расшифруй smile.gif.
User is offline
Go topGo end
10.08.2004 - 20:01
#13
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Да, с чем его едят smile.gif
User is offline
Go topGo end
11.08.2004 - 7:18
#14
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Цитата | Quote
Ты имел в виду, что тебе нужно в зависимости от того какие Checkbox и RadioButton'ы выбраны прозводить расчеты или как??


Нет. В зависимости от того, какой RadioButton включен немного изменяется сама формула, принцип остаётся, но что-то добавляется, что-то убирается в формуле. Ещё имеются Edit'ы и ComboBox - для ввода и выбора значений.

С уважением, Serik.
User is offline
Go topGo end
11.08.2004 - 15:44
#15
Paladin



профи!
Group Icon

Группа: Наши Люди
Сообщений: 944
Регистрация: 7.03.2004
Из: г. Абакан
Пользователь №: 303


Респектов: 11
-----X----
А расчеты должны производиться после нажатия кнопки или друго события??
User is offline
Go topGo end
11.08.2004 - 18:50
#16
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Да, для отображения расчётов стоитsmile.gif Edit в ркжиме OnlyRead и кнопка "Расчёт"

С уважением, Serik.
User is offline
Go topGo end
12.08.2004 - 10:18
#17
Paladin



профи!
Group Icon

Группа: Наши Люди
Сообщений: 944
Регистрация: 7.03.2004
Из: г. Абакан
Пользователь №: 303


Респектов: 11
-----X----
Предположим у тебя есть форма с двумя RadioButton'ами одной Кнопкой и Edit, тебе нужно чтоб если первый RadioButton выбран, то в edit писалось "10 рублей" если второй то "1000 $" то тогда процедура button1click будет выглядеть так:

Цитата | Quote
procedure TForm1.Button1Click(Sender: TObject);
begin
     if radiobutton1.Checked then edit1.Text:=IntToStr(1*10)+' рублей';
     if radiobutton2.Checked then edit1.Text:=IntToStr(999+1)+'$';
end;

Естественно, в твоем случае ты будешь в качестве параметра функции IntToStr писать свою формулу, если что-то не понятно спрашивай smile.gif
User is offline
Go topGo end
3.09.2004 - 23:35
#18
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Хорошо, спасибо! Будем юзать smile.gif
Долго молчал - модем сдох, блинsad.gif
С уважением, Serik.
User is offline
Go topGo end
icon2 6.09.2004 - 16:32
#19
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Уважаемый Paladin!!!
Я тут заметил такую штуку под названием Рейтинг. СПАСИБО !!! smile.gif
Что это и с чем его едят, для чего он??????????????
С уважением, Serik.
User is offline
Go topGo end
22.11.2004 - 6:43
#20
Serik



Опытный юзверь
**

Группа: Пользователи
Сообщений: 94
Регистрация: 5.04.2004
Из: Калининград
Пользователь №: 545


Респектов: 3
-----X----


Предупреждений:

Кстати, если кому интересно, то прога готова, но в сеть ещё не выложена, где можно разместить?

С уважением, Serik.
User is offline
Go topGo end
Вид темы: [ Линейный ] · Стандартный · Режимы сортировки: [ По возрастанию (0-9) ] · По убыванию (9-0)

 
Topic Options
Сейчас: 13.05.2024 - 8:19
 Мобильная версия | Lite версия
▲
SoftoRooM © 2004-2024