powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / (TextBox) Свойство ReadOnly
7 сообщений из 7, страница 1 из 1
(TextBox) Свойство ReadOnly
    #33216002
Фотография Grumax_user
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ситуация такова... Есть форма на ней предположим 20 TextBox'ов, при запуске определенным пользователем буду передавать в форму параметр, который будет определять "Просмотр" - "Редактирование". Варианты:
1. Сделать поля не активными т.е. св-во ReadOnly = .T.
2. Сделать неактивным Update таблиц (пусть в полях делаю что хотят, но инфа не обновится)
Что лучше? Чисто с точки зрения программирования меня интересует 1 вопрос, потому что во 2 случае все решает конструкция IF...ENDIF. Мне интересно как динамически проставить для всех TextBox'ов только чтение, вариант макроподстановки состоящий из формирования "ThisForm.Text"+STR(n.lnI,1)+"ReadOnly" не подходит, т.к. имена TextBox'ов уникальны. Спасибо.

------------------------------------------------------------------------------------
Код: plaintext
Я во все дела суюсь -> всесторонне разовьюсь                                                         Visual FoxPro 8.0
...
Рейтинг: 0 / 0
(TextBox) Свойство ReadOnly
    #33216035
Фотография Hel!Riser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
привяжись тогда к сырцу контрола или базового класа. а их перебирать и выставлять пропертю в цикле по фсем контролам формы
...
Рейтинг: 0 / 0
(TextBox) Свойство ReadOnly
    #33216043
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SetAll("ReadOnly",.T.,"Textbox")
...
Рейтинг: 0 / 0
(TextBox) Свойство ReadOnly
    #33216058
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно на форме сделать две кнопки - "Сохранить" и "Выйти без сохранения". Если форма в режиме просмотра, то кнопку "Сохранить" недоступна, либо невидма совсем :-)
Так ты избежишь проколов, если у тебя кроме текстбоксов будут использоваться другие контролы для редактирования.
...
Рейтинг: 0 / 0
(TextBox) Свойство ReadOnly
    #33216747
Фотография Grumax_user
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо. Вариант с контейнером хочу попоробовать, если конечно понимаю всё правильно :-)). Допустим хочу разделить TextBox'ы на группы, хотя бы 2. В одной 5, в другой 15. В определенный момент нужно на чтение сделать 5, в другой 20.
Как добавить TextBox в контейнер? Что-то не получается :-(( Тогда ИМХО могу внутри контейнера SetAll делать.

------------------------------------------------------------------------------------
Код: plaintext
Я во все дела суюсь -> всесторонне разовьюсь                                                         Visual FoxPro 8.0
...
Рейтинг: 0 / 0
(TextBox) Свойство ReadOnly
    #33216756
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как добавить TextBox в контейнер? Что-то не получается :-(( Тогда ИМХО могу внутри контейнера SetAll делать.
Контейнер\Правый клик\Редактировать
...
Рейтинг: 0 / 0
(TextBox) Свойство ReadOnly
    #33217639
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Hi Grumax_user!

> 2. Сделать неактивным Update таблиц (пусть в полях делаю что хотят, но
> инфа не обновится)

Плохо это. Не поймут тебя...

Вообще SetAll вещь полезная, а если ещё и текстбоксы от своего класса
делать, а в них свойство типа nMode с Assing методом - то через SetAll можно
будет выборочно отключать контролы - опять-же "знать" о том нужно им
включится или нет будет сам контрол - он сравнит This.nMode с какой-то
константой и определит надо ему стать ReadOnly или нет. Конечно это лишь
СХЕМА в деталях обычно всё посложнее бывает.

Posted via ActualForum NNTP Server 1.2
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / (TextBox) Свойство ReadOnly
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]