Полезняшки. Переход к FocusControl при клике на TLabel

У TLabel есть такая полезная особенность. Если в Caption добавить символ амперсанда (&), то следующая за этим символом буква становится ускорителем. При этом, при прорисовке заголовка, сам символ скрывается, а буква-ускоритель – подчёркивается. Это означает, что если нажать Alt + <буква>, то произойдёт установка фокуса ввода в контрол, на который ссылается свойство TLabel.FocusControl. Произойдёт автоматически – это нормальное поведение для GUI в Windows.

Однако, если пользователь кликнет мышкой по самому TLabel, то не произойдёт ничего. Я считаю, что это не есть хорошо: интуитивно пользователь ожидает от клика по метке такого же поведения, как и от сочетания клавиш.

Реализовать своими руками необходимое поведение – проще простого. Достаточно в TLabel.OnClick обработчике написать одну строку вида:

Label1.FocusControl.SetFocus;

А теперь представим, что у нас таких меток будет много… Тогда можно создать свой компонент-наследник от стандартного TLabel. Но это не удобно:

• компонент будет очень простым (почти всего с одной строчкой полезного кода), но его надо выделить в отдельный модуль, да ещё и установить в палитру компонентов;
• при разработке форм помнить, что надо использовать новый компонент;
• а если уже есть формы, то надо по ним пройтись и заменить все стандартные TLabel на новый;
• а если уже используются другие компоненты, расширяющие стандартный TLabel, то придётся и для них делать наследники.

Поэтому мы пойдём другим путём. Привожу сразу код:

type
  TTCustomLabelClick = class
  public
    class procedure DoSelectFocusControl(Sender: TObject);
    class procedure SetLabelClickEvent(ACustomLabel: TCustomLabel); overload;
    class procedure SetLabelClickEvent(AWinControl: TWinControl; CheckChilds: Boolean = True); overload;
  end;

  { TTCustomLabelClick }
  class procedure TTCustomLabelClick.DoSelectFocusControl(Sender: TObject);
  var
    CustomLabel: TCustomLabel;
    AccessLabel: TLabel absolute CustomLabel;
  begin
    CustomLabel := Sender as TCustomLabel;
    if Assigned(AccessLabel.FocusControl) and AccessLabel.FocusControl.CanFocus then
      AccessLabel.FocusControl.SetFocus;
  end;

  class procedure TTCustomLabelClick.SetLabelClickEvent(ACustomLabel: TCustomLabel);
  var
    AccessLabel: TLabel absolute ACustomLabel;
  begin
    AccessLabel.OnClick := TTCustomLabelClick.DoSelectFocusControl;
  end;

  class procedure TTCustomLabelClick.SetLabelClickEvent(AWinControl: TWinControl; CheckChilds: Boolean);
  var
    I: Integer;
    Component: TComponent;
    AccessLabel: TLabel absolute Component;
    WinControl: TWinControl absolute Component;
  begin
    for I := 0 to AWinControl.ComponentCount - 1 do
    begin
      Component := AWinControl.Components[I];
      if (Component is TCustomLabel) and not Assigned(AccessLabel.OnClick) then
        SetLabelClickEvent(AccessLabel)
      else if CheckChilds and (Component is TWinControl) then
        SetLabelClickEvent(WinControl, CheckChilds);
    end;
  end;

Использовать в коде так:

  // Manual set new OnClick behavior:
  TTCustomLabelClick.SetLabelClickEvent(lblUserPassword);

Или так:

  // Automatically set new OnClick behavior for all labels on the form:
  TTCustomLabelClick.SetLabelClickEvent(Self);

Ещё можно второй вариант добавить в базовую форму и забыть об этой проблеме навсегда :)

 

Тестовое приложение:

 

Скачать: исходник с тестовым приложением.