Как осуществить ввод текста в компоненте Label

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

Многие программисты задавая такой вопрос получают на него стандартный ответ "используй edit box." На самом же деле этот вопрос вполне решаем, хотя лейблы и не основаны на окне и, соответственно не могут получать фокус ввода и, соответственно не могут получать символы, вводимые с клавиатуры. Давайте рассмотрим шаги, которые были предприняты мной для разработки данного компонента.

Первый шаг, это кнопка, которая может отображать вводимый текст:

type
  TInputButton = class(TButton)
  private
    procedure WmChar (var Msg: TWMChar); message wm_Char;
end;

procedure TInputButton.WmChar (var Msg: TWMChar);
var
  Temp: string;
begin
  if Char (Msg.CharCode) = #8 then
  begin
    Temp := Caption;
    Delete (Temp, Length (Temp), 1);
    Caption := Temp;
  end
  else
    Caption := Caption + Char (Msg.CharCode);
end;

С меткой (label) дела обстоят немного сложнее, так как прийдётся создать некоторые ухищрения, чтобы обойти её внутреннюю структуру. Впринципе, проблему можно решить созданием других скрытых компонент (кстати, тот же edit box). Итак, посмотрим на объявление класса:

type
  TInputLabel = class (TLabel)
  private
    MyEdit: TEdit;
    procedure WMLButtonDown (var Msg: TMessage); message wm_LButtonDown;
  protected
    procedure EditChange (Sender: TObject);
    procedure EditExit (Sender: TObject);
  public
    constructor Create (AOwner: TComponent); override;
end;

Когда метка (label) создана, то она в свою очередь создаёт edit box и устанавливает несколько обработчиков событий для него. Фактически, если пользователь кликает по метке, то фокус перемещается на (невидимый) edit box, и мы используем его события для обновления метки. Обратите внимание на ту часть кода, которая подражает фокусу для метки (рисует прямоугольничек), основанная на API функции DrawFocusRect:

constructor TInputLabel.Create (AOwner: TComponent);
begin
  inherited Create (AOwner);

  MyEdit := TEdit.Create (AOwner);
  MyEdit.Parent := AOwner as TForm;
  MyEdit.Width := 0;
  MyEdit.Height := 0;
  MyEdit.TabStop := False;
  MyEdit.OnChange := EditChange;
  MyEdit.OnExit := EditExit;
end;

procedure TInputLabel.WMLButtonDown (var Msg: TMessage);
begin
  MyEdit.SetFocus;
  MyEdit.Text := Caption;
  (Owner as TForm).Canvas.DrawFocusRect (BoundsRect);
end;

procedure TInputLabel.EditChange (Sender: TObject);
begin
  Caption := MyEdit.Text;
  Invalidate;
  Update;
  (Owner as TForm).Canvas.DrawFocusRect (BoundsRect);
end;

procedure TInputLabel.EditExit (Sender: TObject);
begin
  (Owner as TForm).Invalidate;
end;

Для ввода текста в компонент Label можно создать custom-компонент, который наследуется от TLabel и добавляет Edit-компонент для обработки ввода текста.

Вот пример, как это можно сделать:

Сначала создайте новый компонент:

type
  TInputLabel = class(TLabel)
  private
    FEdit: TEdit;
    procedure WMLButtonDown(var Msg: TMessage); message WM_LBUTTONDOWN;
  protected
    procedure EditChange(Sender: TObject);
    procedure EditExit(Sender: TObject);
  public
    constructor Create(AOwner: TComponent); override;
  end;

constructor TInputLabel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  FEdit := TEdit.Create(AOwner);
  FEdit.Parent := AOwner as TForm;
  FEdit.Width := 0;
  FEdit.Height := 0;
  FEdit.TabStop := False;
  FEdit.OnChange := EditChange;
  FEdit.OnExit := EditExit;
end;

procedure TInputLabel.WMLButtonDown(var Msg: TMessage);
begin
  FEdit.SetFocus;
  FEdit.Text := Caption;
  (Owner as TForm).Canvas.DrawFocusRect(BoundsRect);
end;

procedure TInputLabel.EditChange(Sender: TObject);
begin
  Caption := FEdit.Text;
  Invalidate;
  Update;
  (Owner as TForm).Canvas.DrawFocusRect(BoundsRect);
end;

procedure TInputLabel.EditExit(Sender: TObject);
begin
  (Owner as TForm).Invalidate;
end;

В этом примере мы создаем custom-компонент TInputLabel, который наследуется от TLabel. Мы добавляем Edit-компонент для обработки ввода текста и настраиваем его свойства соответствующим образом.

Также мы переопределяем сообщение WMLButtonDown для установки фокуса на Edit-компонент при клике на Label.

Методы EditChange и EditExit используются для обновления заголовка Label с новым текстом и отмены формирования, чтобы перерисовать Label.

Чтобы использовать этот custom-компонент, создайте экземпляр его в вашем виде:

var
  MyInputLabel: TInputLabel;
begin
  MyInputLabel := TInputLabel.Create(nil);
  MyInputLabel.Parent := Form1;
  MyInputLabel.Caption := 'Enter text:';
end.

Теперь вы можете вводить текст в Label, кликнув на него и типировать. Текст будет отображаться в Label при типировании.

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

В статье описывается, как можно реализовать ввод текста в компонент Label, и приводятся примеры программистов политических партий, которые создавали свои программы, аналогичные этому заданию.

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

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

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