Статуслайн, забанить кнопки

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
ex3em
Новичок
Сообщения: 25
Зарегистрирован: 28 янв 2010, 12:24

Статуслайн, забанить кнопки

Сообщение ex3em »

Как в статуслайне сделать, чтобы не отображались кнопки ([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

Re: Статуслайн, забанить кнопки

Сообщение n0where »

EnableCommand
DisableCommand
(на память мб не точно) Юзали?
хороший программист — это человек, который переходя улицу с односторонним движением смотрит в обе стороны
Vik
Местный житель
Сообщения: 370
Зарегистрирован: 28 сен 2006, 15:43
Откуда: Санкт-Петербург
Контактная информация:

Re: Статуслайн, забанить кнопки

Сообщение Vik »

Выбрать другой статус-лайн
ex3em
Новичок
Сообщения: 25
Зарегистрирован: 28 янв 2010, 12:24

Re: Статуслайн, забанить кнопки

Сообщение ex3em »

Vik писал(а):Выбрать другой статус-лайн
Пробовал другие sci1InsPM, sci14Esc, sci14EnEsc - эффекта ни какого.
n0where писал(а):EnableCommand
DisableCommand
(на память мб не точно) Юзали?
commands[1]:=cmDelete;
DisableCommands(commands);

помогло - Удаление исчезло,
на вставку cmInsert - наверно надо отключать - но у меня нету значения этой константы (( Может у кого есть?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5187
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Статуслайн, забанить кнопки

Сообщение edward_K »

sci14Esc можно поставить каждому полю. А так скорей всего у вас панельное событие перекрывает tree.
я в докомпиляции еще делал так
DisableCommand(cmInsert);
DisableCommand(cmSetDefault);
DisableCommand(cmDelete);
DisableCommand(cmInsertRecord)
DisableCommand(cmDeleteRecord)
ну чтоб наверняка :).
ex3em
Новичок
Сообщения: 25
Зарегистрирован: 28 янв 2010, 12:24

Re: Статуслайн, забанить кнопки

Сообщение ex3em »

Огромное спасибо за помощь ))

в cmInit

Код: Выделить всё

var commands : array[1..2] of word;

commands[1]:=cmInsert;
commands[2]:=cmDelete;
DisableCommands(commands);
Всё работает :)
Ответить