powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Caption
8 сообщений из 8, страница 1 из 1
Caption
    #32525687
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можна ли динамически изменять Caption объекта при изменении значения переменной...

Если да, то как это можно организовать...

Заранее спасибо...
...
Рейтинг: 0 / 0
Caption
    #32525707
VadimS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
Local lsCaption
lsCaption = 'Заголовок обьекта'
'обьект'.Caption = lsCaption

lsCaption = 'Новый заголовок  обьекта'
'обьект'.Caption = lsCaption
...
Рейтинг: 0 / 0
Caption
    #32525750
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Эт не то...

Но мне надо так что б...

например
Object.Caption - _vfp.Caption

а при изменении _vfp.Caption -> автоматически менялся Caption объекта...

Так же при изменении хотя бы 1 элемента масива...
масив -> 1000
...
Рейтинг: 0 / 0
Caption
    #32525816
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Создай событие ASSIGN к своей переменной (точнее к свойству объекта).

Событие X_ASSIGN срабатывает при изменении значения X. В нем и пропиши изменение всего, чего нужно.
...
Рейтинг: 0 / 0
Caption
    #32526004
Фотография Андрей Давыдов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В дополнение к ВэМу:

Создай свой класс: со св-ом: ссИсточник
В Refresh контрола пропиши что-то типа:
TRY
This.Caption=IIF(!EMPT(This.ссИсточник), TRANS(EVAL(This.ссИсточник)), This.Caption)
CATCH TO лоОшибка
фСообщить(лоОшибка.Message)
ENDTRY
...
Рейтинг: 0 / 0
Caption
    #32526045
IgorProgrammer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
to ВладимирМ
Можно подробнее на примере...

Главная прога...
Public my_array(5)
my_array[1] = '1'
my_array[2] = '2'
my_array[3] = '3'
my_array[4] = '4'
my_array[5] = '5'

do form1
Read events

form1.init
this.Label1.Caption = my_array[1]
this.Label2.Caption = my_array[2]
this.Label3.Caption = my_array[3]
this.Label4.Caption = my_array[4]
this.Label5.Caption = my_array[5]


В процессе работы...
my_array[3] = '33'
при этом изменении, что б в form1 изменился Caption для Label3...

Заранее спасибо...
...
Рейтинг: 0 / 0
Caption
    #32526068
Фотография Андрей Давыдов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 IgorProgrammer

Заведи Курсор и Грид
...
Рейтинг: 0 / 0
Caption
    #32526250
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вместо переменной создай глобальный объект (обычно, такой объект делают на базе класса Custom) и пропиши нужные свойства этого объекта (Properties).

Если создавать такой класс через дизайнер, то при создании нового свойства (пункт меню Class, подпункт New Property или Edit Property\Method) кроме имени свойства и его описания можно проставить 2 птички - одна создает событие ACCESS (срабатывает при чтении значения), другая событие ASSIGN (срабатывает при изменении значения).

Например, ты создал свойство Prop3 и поставил птичку в ASSIGN. Тогда кроме собственно свойства с именем Prop3 будет создано еще и событие с именем Prop3_ASSIGN()

Ну, а далее в главной проге вместо создания глобальной переменной создаешь глобальный объект

PUBLIC goSetting
goSetting = CreateObject("MyClass")
goSetting.Prop3='5'

Вот на этой команде немедленно сработает событие goSetting.Prop3_ASSIGN()

Чтобы не заморачиваться с объектами каждой формы в отдельности из события goSetting.Prop3_ASSIGN() следует запускать специальный пользовательский метод каждой из форм коллекции Forms() (просканировать всю коллекцию форм), ну, а в этом методе формы делать нужные присвоения объектам формы.

Часто, такой глобальный объект и так уже существует. В примерах по FoxPro он называется goAPP.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Caption
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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