Программирование

CheckBox

,

Нужен совет

Дата публикации:

Serik, 30.07.2004 - 7:31

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

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

С уважением, Serik.

Paladin, 31.07.2004 - 14:30

По-подробнее, пожалуйста wink.gif
Пользователь нажал на checkbox и .... (продолжи)

Serik, 1.08.2004 - 21:18

Пользователь нажал на checkbox и .... (продолжи)

И вдруг, smile.gif произошло несколько событий, например,
чтобы прога пряталась в трей при нажатом CheckBox'е
необходимо выполнить несколько действий:

Form4.CoolTrayIcon1.MinimizeToTray:=True;
Form1.Visible:=False;
Form4.CoolTrayIcon1.IconVisible:=True;

Вот, что-то типо того smile.gif
С уважением, Serik.

Paladin, 3.08.2004 - 7:53

Цитата | Quote
procedure TMyForm.CheckBox1Click(Sender: TObject);
begin
      Form4.CoolTrayIcon1.MinimizeToTray:=True;
      Form1.Visible:=False;
      Form4.CoolTrayIcon1.IconVisible:=True;
end;

Чем это не устраивает ??
Но всеже это не разумно... К примеру если у тебя в программе окно с параметрами и там чекбоксы, то, естественно там есть кнопка "Принять" и "Отмена" и кнопка ...... то при нажатии кнопки "принять", УЧИТЫВАЯ какие чекбоксы выбраны что-то делать...
----
Вообщем опиши прогу которую ты делаешь по-подробнее smile.gif.

Serik, 3.08.2004 - 21:17

В принципе я уже нашёл ответ, но если кому интересно, то я пишу (пытаюсь smile.gif)
программу для электриков и энергетиков для облегчения их непосильного труда smile.gif и называться она будет "Энергорасчёт", вот!!!
Как напишу, по просьбам желающих smile.gif, кину на тестирование.
С уважением, Sergius.

Paladin, 4.08.2004 - 5:06

Я буду первым желающим smile.gif.

Serik, 4.08.2004 - 7:26

OK:)
Программа, в принципе, уже почти готова smile.gif, осталось только научиться
производить расчёты по заранее заданной формуле, в которой некоторые
значения могут меняться.
С уважением, Sergius.

Paladin, 4.08.2004 - 10:48

А что тут учиться??
Объявляешь переменную типа Real, к примеру
Цитата | Quote
Var y:real;

А потом там, где тебе надо пишешь
Цитата | Quote
y:={здесь пишешь формулу};

Или ты другое имел в виду ??

Serik, 4.08.2004 - 20:32

Может быть и так, но в формуле необходимо менять параметры всякими там CheckBox'ами и RadioButton'ами.
Будем думать, испытывать, экспериментир-р-ровать smile.gif
Может быть воткнуть скриншот smile.gif))

Paladin, 5.08.2004 - 7:53

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

Ты имел в виду, что тебе нужно в зависимости от того какие Checkbox и RadioButton'ы выбраны прозводить расчеты или как??
P.S Я просто пытаюсь выяснить что тебе нужно, чтоб потом чем-то помоч smile.gif

Dimasty, 10.08.2004 - 10:00

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

Не проще ли написать парсер?

Paladin, 10.08.2004 - 15:06

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

А теперь расшифруй smile.gif.

Serik, 10.08.2004 - 20:01

Да, с чем его едят smile.gif

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

Да, для отображения расчётов стоитsmile.gif 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 писать свою формулу, если что-то не понятно спрашивай smile.gif

Serik, 3.09.2004 - 23:35

Хорошо, спасибо! Будем юзать smile.gif
Долго молчал - модем сдох, блинsad.gif
С уважением, Serik.

Serik, 6.09.2004 - 16:32

Уважаемый Paladin!!!
Я тут заметил такую штуку под названием Рейтинг. СПАСИБО !!! smile.gif
Что это и с чем его едят, для чего он??????????????
С уважением, Serik.

Serik, 22.11.2004 - 6:43

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

С уважением, Serik.

NEITR0N, 10.05.2005 - 12:05

Можно разместить на _www.narod.ru

Serik, 10.05.2005 - 19:34

Уже появился свой сайт "Delphi 39 Project", скоро будет там.
http://www.ssgroup.fatal.ru

Japonomatj, 2.06.2005 - 15:25

А попробуй дерево операций!

Serik, 2.06.2005 - 21:24

Не, дэльфисты непоймут smile.gif, а так ясно и понятно wink.gif


версия для печати -> Полная версия

SoftoRooM © 2004-2024