Программирование на Атлантисе (VIP, FCOM, ARD), FastReport
Модераторы: m0p3e , edward_K , Модераторы
ex3em
Новичок
Сообщения: 25 Зарегистрирован: 28 янв 2010, 12:24
Сообщение
ex3em » 25 мар 2011, 15:00
Как в статуслайне сделать, чтобы не отображались кнопки ([F1]Справка, [F7]Новая, [F8]Удалить). И соответственно данные события не происходили на форме в tree.
Но чтобы отображались кнопки: Редактировать, Выход.
Пробовал
Код: Выделить всё
tree br1 'browse' ('Объекты строительства',,sci14Esc);
show at(,,48,);
table treetable;
fields
treetable.code 'Шифр' : [18], protect;
treetable.name 'Наименование' : [28], protect;
treetable.abbr 'Аббр.' : [6], protect;
end;
также пробовал за место sci14Esc подставлять другие константы - реакции ни какой. ((
n0where
Местный житель
Сообщения: 499 Зарегистрирован: 30 дек 2010, 08:16
Сообщение
n0where » 25 мар 2011, 15:21
EnableCommand
DisableCommand
(на память мб не точно) Юзали?
хороший программист — это человек, который переходя улицу с односторонним движением смотрит в обе стороны
Vik
Местный житель
Сообщения: 370 Зарегистрирован: 28 сен 2006, 15:43
Откуда: Санкт-Петербург
Контактная информация:
Сообщение
Vik » 25 мар 2011, 15:24
Выбрать другой статус-лайн
ex3em
Новичок
Сообщения: 25 Зарегистрирован: 28 янв 2010, 12:24
Сообщение
ex3em » 25 мар 2011, 17:38
Vik писал(а): Выбрать другой статус-лайн
Пробовал другие sci1InsPM, sci14Esc, sci14EnEsc - эффекта ни какого.
n0where писал(а): EnableCommand
DisableCommand
(на память мб не точно) Юзали?
commands[1]:=cmDelete;
DisableCommands(commands);
помогло - Удаление исчезло,
на вставку cmInsert - наверно надо отключать - но у меня нету значения этой константы (( Может у кого есть?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188 Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb
Сообщение
edward_K » 25 мар 2011, 21:52
sci14Esc можно поставить каждому полю. А так скорей всего у вас панельное событие перекрывает tree.
я в докомпиляции еще делал так
DisableCommand(cmInsert);
DisableCommand(cmSetDefault);
DisableCommand(cmDelete);
DisableCommand(cmInsertRecord)
DisableCommand(cmDeleteRecord)
ну чтоб наверняка
.
ex3em
Новичок
Сообщения: 25 Зарегистрирован: 28 янв 2010, 12:24
Сообщение
ex3em » 28 мар 2011, 12:49
Огромное спасибо за помощь ))
в cmInit
Код: Выделить всё
var commands : array[1..2] of word;
commands[1]:=cmInsert;
commands[2]:=cmDelete;
DisableCommands(commands);
Всё работает