[Ekler1]

В прикрепленной картинке красным обведено поле "заказано" возможно как-то написать код что-бы если в поле стоит "Да" то кнопка "Изменить" была заблокирована???

[lmikle]

Ну, типа:

Код:

Button1.Enabled := Query1.FieldByName('Zakazano').AsString = 'Нет';

Вешать надо на события TDataSource, если правильно помню. Что-то типа OnBrowse (нет под рукой дельфей что бы точно сказать).

[Ekler1]

Сообщение от lmikle

Ну, типа:

Код:

Button1.Enabled := Query1.FieldByName('Zakazano').AsString = 'Нет';

Вешать надо на события TDataSource, если правильно помню. Что-то типа OnBrowse (нет под рукой дельфей что бы точно сказать).

Спасибо! А событие в итоге оказалось OnDataChange)))
OnBrowse - Вообще такого не нашел(

[lmikle]

Ну я ж говорю - не помню точно как называется.
Главное, что нашел

[Ekler1]

Сообщение от lmikle

Ну я ж говорю - не помню точно как называется.
Главное, что нашел

Ещё такой вопрос

Код:

Button1.Enabled := Query1.FieldByName('Zakazano').AsString = 'Нет';

так то все работает, если написано "нет" кнопка активна, а как теперь сделать чтоб была активна когда поле пустое или нет написано???

Код:

Button1.Enabled := Query1.FieldByName('Zakazano').AsString = 'Нет';
Button1.Enabled := Query1.FieldByName('Zakazano').AsString = '';

Я вот так пытался, но нет не тут-то было(( работает только когда поле пустое(((

[lmikle]

В таком варианте у тебя второе условие перетирает первое. Надо объединить в одно условие. Ну еще до кучи сделал case insensitive...

Код:

Button1.Enabled := (AnsUpperCase( Query1.FieldByName('Zakazano').AsString) = 'НЕТ') Or (Query1.FieldByName('Zakazano').AsString = '');