Вот bindevent(куда,куда_метод,откуда,откуда_метод)
В откуда_метод в коде RETURN может возвращать истину или ложь. Код куда_метод-пуст. И вот в приложении:
if куда.куда_метод(параметры) &&***
...
else
...
endif
куда.куда_метод(параметры) всегда дает истину, хотя пошагово проходит строчку RETURN .F.
Если в куда_метод внести какой-либо код, то код откуда_метод вообще не выполняется. Игрался с пятым параметром bindevent, но не прояснилось. Как же в описанной конструкции получать настоящее логическое значение?

Извините великодушно. Времени на получение ответа на вопрос несколько дней назад оказалось слишком мало (уезжал из города). Теперь покажу подробней, что у меня не получалось. Нужно по форме кликнуть один раз и получится "ЕС", а нужно "НОУ". Почему так?

public goForm
goForm = CreateObject("form1")
goForm.show()

DEFINE CLASS cmdObrazec AS commandbutton
Caption = "Obrazec"
Name = "cmdObrazec"

PROCEDURE obrazec
RETURN .f.
ENDPROC
ENDDEFINE

DEFINE CLASS cmdRealy AS commandbutton
Caption = "Realy"
Name = "cmdRealy"

PROCEDURE kak_est
ENDPROC
ENDDEFINE

DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT cmdObrazec1 AS cmdObrazec WITH ;
Top = 48, ;
Left = 108, ;
Height = 27, ;
Width = 84

ADD OBJECT cmdRealy1 AS cmdRealy WITH ;
Top = 144, ;
Left = 108, ;
Height = 27, ;
Width = 84

PROCEDURE Init
BindEvent(ThisForm.cmdRealy1,"kak_est",ThisForm.cmdObrazec1,"obrazec")
ENDPROC

PROCEDURE Click
if ThisForm.cmdRealy1.kak_est()
?'YES'
else
?'NO'
endif
ENDPROC

ENDDEFINE

По ветке в дебаггере идет на RETURN .F., а результат .T., как исправить, чтоб было .f.?

Но в примере ВладимираМ похожее работает.

А так работает вроде правильно:

public goForm
goForm = CreateObject("form1")
goForm.show()

DEFINE CLASS cmdObrazec AS commandbutton
Caption = "Obrazec"
Name = "cmdObrazec"

PROCEDURE obrazec(aa as Boolean)
aa=.f.
RETURN aa
ENDPROC
ENDDEFINE

DEFINE CLASS cmdRealy AS commandbutton
Caption = "Realy"
Name = "cmdRealy"

PROCEDURE kak_est(aa as Boolean)
RETURN aa
ENDPROC
ENDDEFINE

DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "Form1"
Name = "Form1"

ADD OBJECT cmdObrazec1 AS cmdObrazec WITH ;
Top = 48, ;
Left = 108, ;
Height = 27, ;
Width = 84

ADD OBJECT cmdRealy1 AS cmdRealy WITH ;
Top = 144, ;
Left = 108, ;
Height = 27, ;
Width = 84

PROCEDURE Init
aa=.t.
BindEvent(ThisForm.cmdRealy1,"kak_est",ThisForm.cmdObrazec1,"obrazec")
ENDPROC

PROCEDURE Click
if ThisForm.cmdRealy1.kak_est()
?'YES'
else
?'NO'
endif
ENDPROC

ENDDEFINE

Я вижу теперь благодаря подсказкам, как решить задачу проще, но и рад, что нашел собственное решение. Тему от себя закрываю, но если остались комментарии у кого-то, обязательно прочитаю.