Каким образом передавать переменные в различные процедуры обработки событий?
Вопрос, собственно, простой для тех, кто знает. Извиняюсь за такую банальность.

Предположим, есть файл start.prg:
mvar = “ Событие “
DO FORM test.scx

Запускаем этот start.prg, предварительно напихав во всевозможные METHOD EVENTS пустой формы test строчку:
MESSAGEBOX ( mvar + PROCEDURE(),0)

Сначала сообщения еще выдаются, но после некоторого момента эта переменная mvar пропадает. И выскакивают сообщения об ошибке. Смотрел по DEBUG поведение mvar. Обычно после Refresh переменная пропадает.
Если в LOAD или INIT формы определять эту mvar, то результат еще хуже. Она чуть за порог процедуры – и, разумеется, сдохла.

Не описывать же все такие переменные, как PUBLIC, чтобы при обработке любого события формы к ней всегда был доступ?

Cобственно, этот вопрос у меня возник после того, как обратился ко мне с жалобой на VFP-7.0 приятель. Он написал программы на трешке, а потом новые версии VFP автоматом перегоняли уже существующие проги под свои новые стандарты. А вот, когда приятель стал писать все с нуля уже на 7-ке, то начали, как тараканы, вылезать многочисленные проблемы. В том числе и эта.

Итак,
1. Для ХAndy :

Я раньше уже имел практику на 1,5 десятках разных СП и ЯП, от БЭМШ для БЭСМ-6, Аssembler (XT/AT) до Clipper под DOS. Наконец, удосужился придти к VFP. Поэтому в основе своей идеология СУБД, команды VPF и т.п. мне знакомы, а вот чистая специфика VPF мне за месяц изучения крови много выпила.
Может, я и подхожу к нему с позиций процедурного языка. И поэтому ищу логику передачи переменной в функции и процедуры низшего ранга. (Кстати, я так понимаю, что Method events - это те же ассемблерные Interrupts, которые уж если начали выполняться, то выполняются до конца. )

Итак, если передача переменной идет, то ВСЕ, кто ниже, ДОЛЖНЫ эту переменную ВИДЕТЬ, а если не идет, то пусть ВСЕ НЕ ВИДЯТ переменную.

А что на деле в VPF? В ранее описанyю форму test.scx добавляю одну ком.кнопку для стирания этой формы по событию Click (ThisForm.Release).
Смотрим: "Как поживает наша незабвенная переменная mvar?"

Load, Init, Show, Activate формы ее видят, а как только до GotFocus формы доходит очередь, "товар кончился". :) Переменная пропала. Чем GotFocus-то провинился? Кстати, и не только он.
Мне не очень понятно, как сюда мою "необъектно-ориентированность" пришить.

Передачу mvar в качестве параметра
DO Form test.scx WITH mvar
я пробовал и до этого. Ситуация не меняется. В Init, Load все попадет, а дальше-то как этот параметр передавать? У процедуры Activate параметра-то нет.
------------------------------------------------------
2. Для Sergey Ch

a) Можно сделать свойство метода, значение которого передавать как параметр в форму.

С учетом того, что не у всех методов имееется одно общее подходящее для передачи свойство, несколько извилистая дорожка получается. :)
Ну, например, для передачи числа можно использовать какой-нибудь неиспользуемый цвет экрана? А для текстовых caption, да еще выключить его видимость, чтобы не читал пользователь служебную информацию :)

б) Можно явно использовать переменные как Public.

К этому я пришел сразу после того, как обнаружилась вся эта фигня с потерей
переменных. Многовато, конечно мусора в памяти будет. Особенно для тех, кто пожелает в тексте программы разобраться. Поэтому-то я и хотел спустить всех лишних чиновников в подчиненные процедуры, чтобы все не сидели в столице. Но, похоже, не удастся. :)

в) Можно создать объект Application видимый всем формам и процедурам и добавить свойства, который можно потом использовать с любом месте программы.

Думаю, что это тот же PUBLIC, только вид сбоку. Программа будет выглядеть еще запутаннее.
Правда, может, создать такой объект Application, который представляет собой аналог структуры самой программы и у каждого субобъекта (аналога процедур) будут только его собственные параметры-переменные? Монстр какой-то, но порядок будет германским. Ничего не перепутаешь.
Или я что-то неправильно представляю?


г) Можно использовать временный курсор и туда писать переменные.

Не очень понятны преимущества этого способа. Видимо, у меня вообще плохое понимание этого «курсора». Можно поподробнее?

Всем спасибо.

Сизову

Смысл "разобранности" в целом понял. Только в частностях не очень. Для меня LOAD и Init все равно выглядят, как 2 двери одного автобуса. Нет разницы через какую войдешь, все равно одним автобусом поедешь. А вот, Show - это, как автобус №2/

Насчет передачи через свойство формы.
Это, что? Нужно выбрать какое-нибудь неотражающееся в целом на работе программы свойство в форме и присвоить ему значение?
Какие чаще всего свойства используете вы для таких целей?

for BURN

В "протащенной" из 3-й версии до 7-ки через апгрейды программе, ничего не пропадает. А вот, если с нуля на семерке все мостить, то пропажа заметна. :)
Если бы только у меня пропадала, то не был бы уверен. Попробуй сам состряпать форму, присвой какой-нибудь переменной значение (хоть в Init) и посмотри в дебагере, как она испарится.
Впрочем, это уже не важно. Будем пользоваться PUBLIC и другими советами, что были выше.

Спасибо всем. Сделал новое свойство формы. Значение передается.
Правда, как-то коряво все это выглядит. До формы, как до границы, несешь значение в переменной, а дальше переносишь его в свойство формы. Все это напоминает контрабанду через таможенника-сообщника.
Ну, коль таковы правила VFP, то "да будет так!"

Спец. для Burn. Созданная в Init переменная испаряется не сразу. Некоторое время она еще видна. Сейчас уже не помню, в каком событии она "отбывает на небеса". Может, принципы ООП и есть, но она все таки умирает не сразу. А вот, рожденная в вызывающей форму процедуре, как кавказкий долгожитель. За свою жизнь застает больше событий, пока программист почтит ее память. :)

Чудеса в мире происходят уже как 2005 лет.
А у меня чуда никакого: аналогичная штука происходит у моего приятеля, с подачи которого эта тема и началась. А экспериментировали мы с переменными и формами совершенно независимо. Единственное, что саму 7 версию я у него брал. Если бы она пропадала сразу, то я и такого приятного общения не было бы. Пропала бы после Load и все. (Приятель любит инициализацию в Load-е делать, а я в Init-е. (Он по алфавиту ближе к верху списка. :))