Какая версия фокса?
Если восьмерка, то почитайте help по функции BINDEVENT().

Можно в Inite формы добавить процедурный файл с описанием стольких классов, сколько есть возможных вариантов Click R, но это плохо.

А что, если создать класс с описанием возможных действий?

Init формы:
This.AddProperty("MyMethodClick")
This.MyMethodClick = CREATEOBJECT("MyClick")
This.AddProperty("MyProperty")
DO CASE
CASE Условие1
This.MyProperty = 1
CASE Условие2
This.MyProperty = 2
CASE Условие3
This.MyProperty = 3
ENDCASE

This.AddObject("MyCommandButton", "R")

Метод Click класса R
DO CASE
CASE This.Parent.MyProperty = 1
This.Parent.MyMethodClick.Click1()
CASE This.Parent.MyProperty = 2
This.Parent.MyMethodClick.Click2()
CASE This.Parent.MyProperty = 3
This.Parent.MyMethodClick.Click3()
ENDCASE

Файл, в котором описываются возможные действия
define class MyClick as custom
function Click1()
....
endfunc
function Click2()
....
endfunc
function Click3()
....
endfunc
endefine

Все это, конечно, грубовато, но я думаю идея ясна.