Помогите с написанием компонента.

[Shrekus]

Нужно создать графический фокус. Если нажато на компоненте то компонент рисуется соответствующим цветом, а если нажатие происходить на другом каком-то компоненте нужно отрисовать компонент другими цветами.

Да можно написать для формы, но тога придется для каждого компонента писать, а если компонентов может бить разное число.

[Hollander]

А так тебе придеться устанавливать ссылки в своем компоненте на другие. Принципе можешь воспользовать поиском всех контролов на форме, а там проверяй что за они и делай что хочешь.

[Kotofff]

Нужно создать графический фокус.

Есть набор компонентов TMS Component Pack называется - там есть компонент ,ложась на форму который выделяет прозрачной рамкой компонент на котором фокус стоит ,параметры рамки настраиваются. Выделяет даже отдельные ячейки в любых таблицах. Попробуй - может его будет достаточно.

[mihali4]

Единственный и самый верный помощник в нелегком деле написания своих компонентов - книга Р.Конопки "Создание оригинальных компонент в среде DELPHI". Скачайте ее себе и многое станет понятным.

[Shrekus]

Сообщение от Kotofff

Есть набор компонентов TMS Component Pack называется - там есть компонент ,ложась на форму который выделяет прозрачной рамкой компонент на котором фокус стоит ,параметры рамки настраиваются. Выделяет даже отдельные ячейки в любых таблицах. Попробуй - может его будет достаточно.

Да красиво, но слишком круто.

Добавил события:


FonEnter : TNotifyEvent;
FonExit : TNotifyEvent;

procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;

procedure WMLButtonUp(var Msg: TMsg);message WM_LBUTTONUP;



property OnEnter : TNotifyEvent read FonEnter write FonEnter;
property OnExit : TNotifyEvent read FonExit write FonExit;



procedure TShop.WMSetFocus(var Message: TWMSetFocus);
begin
inherited;
Invalidate;
If Assigned(FonEnter) then
FonEnter(Self);
Focus := True;
end;

procedure TShop.WMKillFocus(var Message: TWMKillFocus);
begin
inherited;
Invalidate;
If Assigned(FonExit) then
FonExit(Self);
Focus := False;
end;



procedure TShop.WMLButtonUp(var Msg: TMsg);
begin
SetFocus;
inherited;
Paint;
end;

Возможно есть другие варианты, не судите строго. Работает.

Спасибо всем!