[Dagmanor]

Доброго всем дня. Имеется компонент который унаследован от класса TComponent.
Раньше установка фокуса в него не требовалась. Но теперь понадобилось.
Подскажите пожалуйста как можно прикрутить к компоненту возможность установки фокуса.

Среда Delphi 7.

[NumLock]

А никак, ибо TComponent не визуальный компонент, поэтому установить на него фокус не имеет смысла в принципе. Видимость начинается от TControl, фокусность от TWinControl. SetFocus

[Dagmanor]

Да, я понимаю, что фокусность идет только от 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);
и еще -надцать нужных методов и свойств.
Это поможет?

[NumLock]

Просто нужно унаследоваться от TWinControl и все.