1 Topic by byhost (edited by byhost 2016-03-22 10:32:07)

  • Registered: 2015-12-29
  • Posts: 59

Topic: помощь в CheckBox

Добрый день! Возможно ли кнопкой снять активность CheckBox

В TableGrid выводятся активные заказы где  CheckBox=True, при выделении записи в TableGrid  и нажатии на кнопку, CheckBox менялся на False

  • Registered: 2014-03-21
  • Posts: 193

Re: помощь в CheckBox

Да , вешайте скриптом процедуру на кнопку с командой что то типа  имяформы.имячекбокса.checked:=falce;  через поиск наберите checkbox и будет вам щасте

  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Спасибо) попробую

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

Re: помощь в CheckBox

byhost
У CheckBox-а помимо двух состояний True и False есть и третье - Grayed (неизвестное состояние), когда CheckBox имеет данное состояние, он будет проигнорирован при поиске записей, т.е. будут найдены записи с True, False и с пустыми значениями данного поля.


Чтобы включить возможность использования состояния Grayed, необходимо установить свойство AllowGrayed = True для данного CheckBox-a, после чего вы сможете установить значение Grayed :

Form1.CheckBox1.State := cbGrayed;
Dmitry.

5 Reply by byhost (edited by byhost 2016-04-02 10:00:59)

  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Добрый день! Суть вопроса не в том чтоб показать записи, а изменить выбрав нужную запись в TableGrid и кликнуть на кнопку, и чтоб активная запись стала не активной

procedure активные_заказы_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    заказ.CheckBox1.checked :=Falce;
end;
выдаёт ошибку

  • Registered: 2016-02-28
  • Posts: 124

Re: помощь в CheckBox

заказ.CheckBox1.checked :=False

7 Reply by byhost (edited by byhost 2016-04-02 11:09:08)

  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Эти действия производят поис, а как снять с записи
https://yadi.sk/i/BGRJQKN_qgLDE

8 Reply by Raspr (edited by Raspr 2016-04-02 11:19:06)

  • Registered: 2016-02-28
  • Posts: 124

Re: помощь в CheckBox

Если правильно понимаю, то:

procedure активные_заказы_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
    SQLExecute('UPDATE таблица SET поле_с_чеком = 0 WHERE id = '+IntToStr(ваша_форма.TableGrid1.dbItemID));
end;
  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Спасибо всё получилось, и повесил на кнопку
procedure активные_заказы_OnShow (Sender: string; Action: string);
begin
  активные_заказы.button1.click;
end;

  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Только получается так что отмечая в таблице запись, но не кликая на кнопку, закрывая форму запись срабатывает

  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Вроде получилось только запись не сразу исчезает из таблицы, только после закрытия и открытия

  • Registered: 2016-02-28
  • Posts: 124

Re: помощь в CheckBox

Можно добавить:

форма.TableGrid1.dbUpdate
  • Registered: 2015-12-29
  • Posts: 59

Re: помощь в CheckBox

Спасибо всё работает)