Ermitteln woher ein Control den Fokus erhalten hat

[Tryer]

OnClick von allen Controls zu überschreiben würde ich durchaus als Problem sehen..
Das On/Enter/OnClick der Form müsste auch noch überschrieben werden.
Mangels Delphi kann ich gerade nur raten das dann beim Focuswechsel erst Form.OnEnter und danach Statusbar.OnEnter ausgelöst wird - dann hätte man dann wieder die "Doppeltriggerung".

Vielleicht eher in der Art "Form.OnActivate: Wenn Maus über Statusbar und Maustaste gedrückt dann Veränderung bei OnClick bis zum nächsten MouseDown sperren (Hide passiert über Popup.Deactivate)"
Mir gefällt die GetTickCount - Lösung auch nicht wirklich

Grüsse, Dirk