Подскажите, как одним CheckBox'ом обработать несколько событий???
Например: procedure TMyForm.CheckBox1Click(Sender: TObject); begin case CheckBox1.State of cbUnchecked: ...; ...; и т.д cbChecked: ...; ...; и т.д end end;
С уважением, Serik.
Paladin, 31.07.2004 - 14:30
По-подробнее, пожалуйста Пользователь нажал на checkbox и .... (продолжи)
Serik, 1.08.2004 - 21:18
Пользователь нажал на checkbox и .... (продолжи)
И вдруг, произошло несколько событий, например, чтобы прога пряталась в трей при нажатом CheckBox'е необходимо выполнить несколько действий:
procedure TMyForm.CheckBox1Click(Sender: TObject); begin Form4.CoolTrayIcon1.MinimizeToTray:=True; Form1.Visible:=False; Form4.CoolTrayIcon1.IconVisible:=True; end;
Чем это не устраивает ?? Но всеже это не разумно... К примеру если у тебя в программе окно с параметрами и там чекбоксы, то, естественно там есть кнопка "Принять" и "Отмена" и кнопка ...... то при нажатии кнопки "принять", УЧИТЫВАЯ какие чекбоксы выбраны что-то делать... ---- Вообщем опиши прогу которую ты делаешь по-подробнее .
Serik, 3.08.2004 - 21:17
В принципе я уже нашёл ответ, но если кому интересно, то я пишу (пытаюсь ) программу для электриков и энергетиков для облегчения их непосильного труда и называться она будет "Энергорасчёт", вот!!! Как напишу, по просьбам желающих , кину на тестирование. С уважением, Sergius.
Paladin, 4.08.2004 - 5:06
Я буду первым желающим .
Serik, 4.08.2004 - 7:26
OK:) Программа, в принципе, уже почти готова , осталось только научиться производить расчёты по заранее заданной формуле, в которой некоторые значения могут меняться. С уважением, Sergius.
Paladin, 4.08.2004 - 10:48
А что тут учиться?? Объявляешь переменную типа Real, к примеру
Цитата | Quote
Var y:real;
А потом там, где тебе надо пишешь
Цитата | Quote
y:={здесь пишешь формулу};
Или ты другое имел в виду ??
Serik, 4.08.2004 - 20:32
Может быть и так, но в формуле необходимо менять параметры всякими там CheckBox'ами и RadioButton'ами. Будем думать, испытывать, экспериментир-р-ровать Может быть воткнуть скриншот ))
Paladin, 5.08.2004 - 7:53
Цитата | Quote(Serik @ Четверг, 05 Августа 2004, 1:32)
Может быть и так, но в формуле необходимо менять параметры всякими там CheckBox'ами и RadioButton'ами. Будем думать, испытывать, экспериментир-р-ровать Может быть воткнуть скриншот ))
Ты имел в виду, что тебе нужно в зависимости от того какие Checkbox и RadioButton'ы выбраны прозводить расчеты или как?? P.S Я просто пытаюсь выяснить что тебе нужно, чтоб потом чем-то помоч
Dimasty, 10.08.2004 - 10:00
Цитата | Quote(Serik @ Среда, 04 Августа 2004, 21:32)
Может быть и так, но в формуле необходимо менять параметры всякими там CheckBox'ами и RadioButton'ами. Будем думать, испытывать, экспериментир-р-ровать Может быть воткнуть скриншот ))
Не проще ли написать парсер?
Paladin, 10.08.2004 - 15:06
Цитата | Quote(Dimasty @ Вторник, 10 Августа 2004, 15:00)
Не проще ли написать парсер?
А теперь расшифруй .
Serik, 10.08.2004 - 20:01
Да, с чем его едят
Serik, 11.08.2004 - 7:18
Цитата | Quote
Ты имел в виду, что тебе нужно в зависимости от того какие Checkbox и RadioButton'ы выбраны прозводить расчеты или как??
Нет. В зависимости от того, какой RadioButton включен немного изменяется сама формула, принцип остаётся, но что-то добавляется, что-то убирается в формуле. Ещё имеются Edit'ы и ComboBox - для ввода и выбора значений.
С уважением, Serik.
Paladin, 11.08.2004 - 15:44
А расчеты должны производиться после нажатия кнопки или друго события??
Serik, 11.08.2004 - 18:50
Да, для отображения расчётов стоит Edit в ркжиме OnlyRead и кнопка "Расчёт"
С уважением, Serik.
Paladin, 12.08.2004 - 10:18
Предположим у тебя есть форма с двумя 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 писать свою формулу, если что-то не понятно спрашивай
Serik, 3.09.2004 - 23:35
Хорошо, спасибо! Будем юзать Долго молчал - модем сдох, блин С уважением, Serik.
Serik, 6.09.2004 - 16:32
Уважаемый Paladin!!! Я тут заметил такую штуку под названием Рейтинг. СПАСИБО !!! Что это и с чем его едят, для чего он?????????????? С уважением, Serik.
Serik, 22.11.2004 - 6:43
Кстати, если кому интересно, то прога готова, но в сеть ещё не выложена, где можно разместить?