Установка фокуса в свой компонент

[Dagmanor]

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

Среда Delphi 7.

[Serge_Bliznykov]

Например, у TControl есть метод SetFocus,
а вот что делать с наследником TComponent - не подскажу.

[Dagmanor]

Возможно я не прав, но мне кажется, что надо сделать по аналогии с 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);
и еще -надцать методов.
Но вот не знаю правильно ли это будет

[Аватар]

TComponent -> TControl -> TWinControl
И SetFocus впервые появляются в TWinControl. Там бы и смотрел сырцы

Но вот не знаю правильно ли это будет

Если сделаешь правильно, то таким оно и будет. Наследуй от TWinControl, чего себе геморрой устраивать

[Serge_Bliznykov]

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

сейчас знающие люди подтянутся, выскажут своё мнение.

Сообщение от Аватар

Наследуй от TWinControl, чего себе геморрой устраивать

Вот! Категорически согласен.
Зачем придумывать велосипед, когда можно его просто взять и поехать?!!

[Dagmanor]

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

[min@y™]

Ну покажи компонент-то, ёмаё!

[beegl]

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

как можно прикрутить к компоненту возможность установки фокуса.

Perform-м можно). Или надо в событии чтоб было (True/False)?

Button1.Perform(WM_SETFOCUS, 0, 0);

Или смотрим любой компонент, там где есть ShowFocus:

private
    { Private declarations }
    FShowFocus : Boolean;  //Show indicator rectangle when we have focus?
procedure SetShowFocus(Value : Boolean);  //Draw Rect when we have focus True/False

published
    { Published declarations }
    property ShowFocus : Boolean read FShowFocus
       write SetShowFocus default TRUE;

procedure Register;

implementation

constructor TBtn.Create(AOwner : TComponent);
begin
  inherited Create(AOwner);
  FShowFocus := TRUE;             //Draw focusr
end;

procedure TBtn.Paint;
///////////////////////////////
  if not (csDesigning in ComponentState) then
    if FShowFocus = TRUE then
      if Focused then
        bm.Canvas.DrawFocusRect(RECT(2,  2, Width - 2, Height - 2));

procedure TBtn.SetShowFocus(Value : Boolean);
begin
  if FShowFocus <> Value then
    FShowFocus := Value;
end;