( Вход | Регистрация | Поиск )
CheckBox, Нужен совет
Стандартный · [ Линейный ]
Дата обновления: 02.06.2005 - 21:24, перейти к новому сообщению
Подскажите, как одним CheckBox'ом обработать несколько событий???
Например:
procedure TMyForm.CheckBox1Click(Sender: TObject);
begin
case CheckBox1.State of
cbUnchecked: ...;
...; и т.д
cbChecked: ...;
...; и т.д
end
end;
С уважением, Serik.
Например:
procedure TMyForm.CheckBox1Click(Sender: TObject);
begin
case CheckBox1.State of
cbUnchecked: ...;
...; и т.д
cbChecked: ...;
...; и т.д
end
end;
С уважением, Serik.
Ответов(10 - 19)
Цитата | Quote(Serik @ Среда, 04 Августа 2004, 21:32)
Может быть и так, но в формуле необходимо менять параметры всякими там CheckBox'ами и RadioButton'ами.
Будем думать, испытывать, экспериментир-р-ровать
Может быть воткнуть скриншот))
Будем думать, испытывать, экспериментир-р-ровать
Может быть воткнуть скриншот
)) Не проще ли написать парсер?
Цитата | Quote(Dimasty @ Вторник, 10 Августа 2004, 15:00)
Не проще ли написать парсер?
А теперь расшифруй
.Цитата | Quote
Ты имел в виду, что тебе нужно в зависимости от того какие Checkbox и RadioButton'ы выбраны прозводить расчеты или как??
Нет. В зависимости от того, какой RadioButton включен немного изменяется сама формула, принцип остаётся, но что-то добавляется, что-то убирается в формуле. Ещё имеются Edit'ы и ComboBox - для ввода и выбора значений.
С уважением, Serik.
Предположим у тебя есть форма с двумя RadioButton'ами одной Кнопкой и Edit, тебе нужно чтоб если первый RadioButton выбран, то в edit писалось "10 рублей" если второй то "1000 $" то тогда процедура button1click будет выглядеть так:
Естественно, в твоем случае ты будешь в качестве параметра функции IntToStr писать свою формулу, если что-то не понятно спрашивай
Цитата | 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;
begin
if radiobutton1.Checked then edit1.Text:=IntToStr(1*10)+' рублей';
if radiobutton2.Checked then edit1.Text:=IntToStr(999+1)+'$';
end;
Естественно, в твоем случае ты будешь в качестве параметра функции IntToStr писать свою формулу, если что-то не понятно спрашивай
Уважаемый Paladin!!!
Я тут заметил такую штуку под названием Рейтинг. СПАСИБО !!!
Что это и с чем его едят, для чего он??????????????
С уважением, Serik.
Я тут заметил такую штуку под названием Рейтинг. СПАСИБО !!!
Что это и с чем его едят, для чего он??????????????
С уважением, Serik.
Кстати, если кому интересно, то прога готова, но в сеть ещё не выложена, где можно разместить?
С уважением, Serik.
С уважением, Serik.
SoftoRooM © 2004-2024