Pro Foxku mě napadá jedině krkolomné řešení. V MouseDown Event udělat třeba:

ThisForm.CimSeSemVlezlo = 1

V KeyPress Event:

ThisForm.CimSeSemVlezlo = 2

A v GotFocus Event to testovat:

if ThisForm.CimSeSemVlezlo = 1
   ...vlezlo to tam myší
else
   ...vlezlo se tam klávesou
endif

Avšak nemám už Foxku nainstalovanou, tak si nejsem jistý, jestli náhodou GotFocus nevypukne dřív, než MouseDown nebo KeyPress. Pak bych teda do MouseDown a KeyPress doplnil volání nějaké společné metody, co by to dokončila až tady, místo v GotFocus.

V C nebo Delphi by asi šlo jednoduše odlovit zprávu pro ovládací prvek.