Страница 1 из 1
Статуслайн, забанить кнопки
Добавлено: 25 мар 2011, 15:00
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 подставлять другие константы - реакции ни какой. ((
Re: Статуслайн, забанить кнопки
Добавлено: 25 мар 2011, 15:21
n0where
EnableCommand
DisableCommand
(на память мб не точно) Юзали?
Re: Статуслайн, забанить кнопки
Добавлено: 25 мар 2011, 15:24
Vik
Выбрать другой статус-лайн
Re: Статуслайн, забанить кнопки
Добавлено: 25 мар 2011, 17:38
ex3em
Vik писал(а):Выбрать другой статус-лайн
Пробовал другие sci1InsPM, sci14Esc, sci14EnEsc - эффекта ни какого.
n0where писал(а):EnableCommand
DisableCommand
(на память мб не точно) Юзали?
commands[1]:=cmDelete;
DisableCommands(commands);
помогло - Удаление исчезло,
на вставку cmInsert - наверно надо отключать - но у меня нету значения этой константы (( Может у кого есть?
Re: Статуслайн, забанить кнопки
Добавлено: 25 мар 2011, 21:52
edward_K
sci14Esc можно поставить каждому полю. А так скорей всего у вас панельное событие перекрывает tree.
я в докомпиляции еще делал так
DisableCommand(cmInsert);
DisableCommand(cmSetDefault);
DisableCommand(cmDelete);
DisableCommand(cmInsertRecord)
DisableCommand(cmDeleteRecord)
ну чтоб наверняка
.
Re: Статуслайн, забанить кнопки
Добавлено: 28 мар 2011, 12:49
ex3em
Огромное спасибо за помощь ))
в cmInit
Код: Выделить всё
var commands : array[1..2] of word;
commands[1]:=cmInsert;
commands[2]:=cmDelete;
DisableCommands(commands);
Всё работает