| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не срабатывает dbEditing

Оксана Вл. ©   (2008-07-29 09:36:00) 

Скадите почему не срабатывает такой код


if checkbox1.Checked then
 begin
 checkbox1.Caption:='Óáðàòü ðåäàêòèðîâàíè&# 229;';
 dbgrideh1.Options := dbgrideh1.Options-[dgRowSelect];
 dbgrideh1.Options := dbgrideh1.Options+[dgEditing];
 end
 else
 checkbox1.Caption:='Ðåäàêòèðîâ àòü';
 dbgrideh1.Options := dbgrideh1.Options+[dgRowSelect];
 dbgrideh1.Options :=dbgrideh1.Options - [dgEditing];
end;


---

Оксана Вл.   (2008-07-29 10:13:00) [1]

MsGuns да всё было в датасете.

---

MsGuns   (2008-07-29 10:08:00) [2]

Очевидно, датасет нередактируемый или грид ридонли

---

Оксана Вл.   (2008-07-29 09:42:00) [3]

сделала так...
но всё равно редактировать не разрешает


begin
if checkbox1.Checked then
 begin
 checkbox1.Caption:='Óáðàòü ðåäàêòèðîâàíè&# 229;';
 dbgrideh1.Options := dbgrideh1.Options-[dgRowSelect];
 dbgrideh1.Options := dbgrideh1.Options+[dgEditing];
 end
 else
 begin
 checkbox1.Caption:='Ðåäàêòèðîâ àòü';
 dbgrideh1.Options :=dbgrideh1.Options - [dgEditing];
 end
end;


---

Palladin   (2008-07-29 09:40:00) [4]

потому что головой думать нужно и begin end дописать

---

Наверх