Создание ссылки с фокусом и рамкой в Delphi 7

Delphi , Компоненты и Классы , TLabel

В этой статье мы рассмотрим, как создать ссылку с фокусом и рамкой в Delphi 7. Мы покажем, как использовать TLabel, TStaticText и даже TButton для достижения этого.

Использование TLabel

TLabel не может получать фокус и не может рисовать рамку фокуса по умолчанию. Однако мы можем создать класс, унаследованный от TLabel, который переопределяет методы WMSetFocus, WMKillFocus и WM_PAINT, чтобы добавить эту функциональность.

Вот пример кода, который делает это:

type
  TLabelWithFocus = class(TLabel)
  private
    FFocused: Boolean;
  protected
    procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
    procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  end;

procedure TLabelWithFocus.WMSetFocus(var Message: TWMSetFocus);
begin
  FFocused := True;
  Invalidate;
  inherited;
end;

procedure TLabelWithFocus.WMKillFocus(var Message: TWMKillFocus);
begin
  FFocused := False;
  Invalidate;
  inherited;
end;

procedure TLabelWithFocus.WMPaint(var Message: TWMPaint);
var
  DC: HDC;
  R: TRect;
begin
  inherited;
  if FFocused then begin
    DC := GetDC(Handle);
    GetClipBox(DC, R);
    DrawFocusRect(DC, R);
    ReleaseDC(Handle, DC);
  end;
end;

Использование TStaticText

TStaticText может получать фокус, но не может рисовать рамку фокуса. Мы можем использовать тот же подход, что и для TLabel, чтобы добавить эту функциональность.

Вот пример кода, который делает это:

type
  TStaticTextWithFocus = class(TStaticText)
  private
    FFocused: Boolean;
  protected
    procedure WMSetFocus(var Message: TWMSetFocus); message WM_SETFOCUS;
    procedure WMKillFocus(var Message: TWMKillFocus); message WM_KILLFOCUS;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
  end;

procedure TStaticTextWithFocus.WMSetFocus(var Message: TWMSetFocus);
begin
  FFocused := True;
  Invalidate;
  inherited;
end;

procedure TStaticTextWithFocus.WMKillFocus(var Message: TWMKillFocus);
begin
  FFocused := False;
  Invalidate;
  inherited;
end;

procedure TStaticTextWithFocus.WMPaint(var Message: TWMPaint);
var
  DC: HDC;
  R: TRect;
begin
  inherited;
  if FFocused then begin
    DC := GetDC(Handle);
    GetClipBox(DC, R);
    DrawFocusRect(DC, R);
    ReleaseDC(Handle, DC);
  end;
end;

Использование TButton

TButton может получать фокус и рисовать рамку фокуса, но его внешний вид может не соответствовать тому, что вам нужно. Тем не менее, это может быть альтернативным подходом, если вам нужен только фокус и рамка фокуса.

Заключение

В этой статье мы рассмотрели три подхода к созданию ссылки с фокусом и рамкой в Delphi 7: использование TLabel, TStaticText и TButton. Каждый из этих подходов имеет свои плюсы и минусы, и вам придется решить, какой из них лучше всего подходит для вашего конкретного случая использования.

Создано по материалам из источника по ссылке.

В этой статье рассматривается три метода создания ссылки с фокусом и рамкой в Delphi 7: использование TLabel, TStaticText и TButton, каждый из которых имеет свои преимущества и недостатки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TLabel ::