Да, я понимаю, что фокусность идет только от TWinControl.
А вот если добавить к компоненту ( по аналогии сTWinControl)
- Handle: HWnd;
- procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
- procedure WMKillFocus(var Message: TWMSetFocus); message WM_KILLFOCUS;
- procedure CreateHandle;
- procedure CreateParams(var Params: TCreateParams);
и еще -надцать нужных методов и свойств.
Это поможет?
|