• Registered: 2014-06-20
  • Posts: 6

Topic: Подскажите по CheckBox и ComboBox

Можно ли сделать так, что при нажатии на checkbox, combobox становился активным, а без этого действия он был серым, как это сделано в DataTimePicker. Например, checkbox отвечает за дополнительное условие, которое можно выбрать в combobox? Спасибо.

  • Registered: 2014-05-16
  • Posts: 15

Re: Подскажите по CheckBox и ComboBox

по идеи с помощью скрипта да
нужно прописать условие если checkbox истина то сделать активным combobox
скрипт погу показать но позже так как с телефона сейчас зашел

urkov1987's Website

  • Registered: 2014-06-20
  • Posts: 6

Re: Подскажите по CheckBox и ComboBox

ок. буду благодарен.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите по CheckBox и ComboBox

Для этого вам потребуется создать два события


// событие клика по чекбоксу
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
     Form1.ComboBox1.Enabled := Form1.CheckBox1.Checked;
end;

// событие в момент появления формы
procedure Form1_OnShow (Sender: string; Action: string);
begin
     Form1.ComboBox1.Enabled := Form1.CheckBox1.Checked;
end;
Dmitry.
  • Registered: 2014-05-16
  • Posts: 15

Re: Подскажите по CheckBox и ComboBox

хм
только написал код думал выкинуть на форум а тут уже ответили )

urkov1987's Website

  • Registered: 2014-06-20
  • Posts: 6

Re: Подскажите по CheckBox и ComboBox

Скажите, что я тогда не так делаю? вставил этот текст скрипта, исправил на свои названия чекбокса и комбобокса, а он при запуске проекта пишет "BEGIN" expected

  • Registered: 2014-05-21
  • Posts: 108

Re: Подскажите по CheckBox и ComboBox

Calibe wrote:

Скажите, что я тогда не так делаю? вставил этот текст скрипта, исправил на свои названия чекбокса и комбобокса, а он при запуске проекта пишет "BEGIN" expected

Ну раз он говорит, что не находит "begin", то, скорее всего, Вы потеряли это ключевое слово. smile
В обеих новых процедурах проверьте, чтобы после строки с названием процедуры шло слово "begin" (это если Вы не объявляете переменные var).

Или, возможно, Вы удалили обязательную конструкцию begin ... end. Она должна находится в самом низу редактора. Эта конструкция, которая осталась от примерочного скрипта Hello. Т.е. эти два слова нельзя удалять! Все что между ними, можно...

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Подскажите по CheckBox и ComboBox

в целом должно быть так

// событие клика по чекбоксу
procedure Form1_CheckBox1_OnClick (Sender: string);
begin
     Form1.ComboBox1.Enabled := Form1.CheckBox1.Checked;
end;

// событие в момент появления формы
procedure Form1_OnShow (Sender: string; Action: string);
begin
     Form1.ComboBox1.Enabled := Form1.CheckBox1.Checked;
end;

begin

end.
Dmitry.
  • Registered: 2014-06-20
  • Posts: 6

Re: Подскажите по CheckBox и ComboBox

Сначала ничего не получилось. Но потом вспомнил, не раз замечал, что если  написать ручками, ничего работать не будет. Короче, нужно было зайти в события каждого используемого объекта и дважды нажать на необходимую строку с событием, она заполняется данными из скрипта, и о чудо, все работает.
Всем спасибо.