Модифицировать поведение компонента, без разделения на подклассы

Модифицировать поведение компонента, без разделения на подклассы

Модифицировать поведение компонента, без разделения на подклассы : Несколько тысяч советов, которые сделают вашу жизнь проще.

мне нужны ссылки "меню", т. е. для формы. Так что я в принципе нужен, но названия "TabStopable" и TStaticText имеет право на это. Но это не нарисовать FocusRect, когда сосредоточен. Вот мое решение.<р класса="step_content ">интерфейс<р класса="step_content "> Тип
В TStaticText = класс(StdCtrls.TStaticText)
частные
в процедуре DrawFocusRect
в процедуре WMSetFocus(вар Сообщения: TWMSetFocus) сообщение WM_SETFOCUS
в процедуре WMKillFocus(вар Сообщения: TWMSetFocus) сообщение WM_KILLFOCUS
в процедуре WMPaint(var на сообщение: TWMPaint) сообщение wm_paint
В конце <р класса="step_content "> // все компоненты, что форма будет наследство от моего модифицированного
при // TStaticText<р класса="step_content "> TDataBrowseForm = класс(TForm)
В Метка1: TStaticText
В Метка2: TStaticText
частные
и { частные объявления }
на публике
и { публичных заявлений }
В конце <р класса="step_content" > ....

<див класс='embed_block_0'> <див ИД="блок-google_admanager-1" класса="блок блок-google_admanager области-другие области-количество-1 Количество-1 блок-Без названия "> <див класс="блок-топ"> <див класс="блок-внутренний"> <див класс="содержание"> <див класс="блок-дна"> <див класс='embed_block_1'><див>

выполнение<р класса="step_content" > ....<р класса="step_content "> процедура TStaticText.DrawFocusRect
вар
В постоянного тока: ГДХ
и начинается
В DC := GetDC(ручка) <бр / >
и окна.DrawFocusRect(постоянного тока, прямоугольник(1, 1, Ширина-1, Высота -1))
и наконец,
ReleaseDC(ручки, округ Колумбия)
В конце
В конце <р класса="step_content "> процедура TStaticText.WMKillFocus(сообщение Варе: TWMSetFocus)
и начинается
унаследовала
DrawFocusRect
В конце <р класса="step_content "> процедура TStaticText.WMPaint(var на сообщение: TWMPaint)
и начинается
унаследовала
если сосредоточена, то есть
DrawFocusRect
В конце <р класса="step_content "> процедура TStaticText.WMSetFocus(вар Сообщения: TWMSetFocus)
и начинается
унаследовала
DrawFocusRect
В конце
<дел стиль= \ ясно:оба поплавка:нет'><дел стиль= \ ясно:оба поплавка:нет'> & мочекаменная