Создание интерактивной панели символов для TEdit в Delphi

Delphi , Компоненты и Классы , Свойства и События

При разработке приложений на Delphi часто возникает необходимость в создании дополнительных элементов управления, которые могут взаимодействовать с существующими компонентами. В данном случае рассматривается задача создания панели с кнопками специальных символов, которая будет появляться при входе пользователя в текстовое поле TEdit и исчезать при выходе. Каждый символ, выбранный пользователем, должен добавляться в текстовое поле.

Описание задачи

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

Так как на форме много текстовых полей, для каждого события OnEnter TEdit создается панель с символами, а событие OnExit освобождает эту панель. Необходимо как-то сообщить кнопке, к какому TEdit полю следует добавить символ при его нажатии.

Решение проблемы

Для решения задачи можно использовать дополнительное поле в форме, которое будет указывать на текущий TEdit. При входе в поле это поле устанавливается в TEdit(Sender), а при выходе — в nil. Событие OnClick кнопки может использовать это поле для доступа к соответствующему TEdit.

Пример кода

procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentEdit: TEdit;
begin
  CurrentEdit := nil;
end;

procedure TForm1.InputEnter(Sender: TObject);
begin
  CurrentEdit := TEdit(Sender);
  SpecSimboliai(TEdit(Sender).Parent, TEdit(Sender));
end;

procedure TForm1.InputExit(Sender: TObject);
begin
  CurrentEdit := nil;
end;

procedure TForm1.SpecSimboliai(Parent: TWinControl; Edit: TEdit);
begin
  // Создание панели и кнопок, как в исходном коде
end;

procedure TForm1.AddSpecSymbol(Sender: TObject);
begin
  if Assigned(CurrentEdit) then
    CurrentEdit.Text := CurrentEdit.Text + Sender.Caption;
end;

Альтернативное решение

Другой вариант — использование свойства Tag для сохранения объекта TEdit в виде целого числа.

oButton := TPanelEx.Create(Self);
oButton.Parent := pSpec;
oButton.Tag := Integer(Edit); // Сохраняем ссылку на TEdit
oButton.OnClick := AddSpecSymbol;

В обработчике AddSpecSymbol восстанавливаем ссылку на TEdit из свойства Tag.

var
  Edit : TEdit;
begin
  Edit := TEdit((Sender as TButton).Tag);
  Edit.Text := Edit.Text + Sender.Caption;
end;

Рефакторинг

Ещё один вариант — создание нового типа TSpecialSymbolPanel, который будет содержать логику панели и кнопок. Это позволит вынести код создания и обработки событий в отдельный класс, что упростит его использование и обслуживание.

type
  TSpecialSymbolPanel = class(TComponent)
  private
    FLinkedEdit: TEdit;
    procedure ButtonClick(Sender: TObject);
  public
    property LinkedEdit: TEdit read FLinkedEdit write FLinkedEdit;
  end;

В главной форме создаем экземпляр TSpecialSymbolPanel и обращаемся к нему при входе и выходе из TEdit.

Заключение

В статье рассмотрены различные подходы к решению задачи создания интерактивной панели символов для TEdit в Delphi. Выбор конкретного метода зависит от требований проекта и предпочтений разработчика.

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

Задача заключается в создании интерактивной панели символов для текстового поля (TEdit) в среде разработки Delphi, которая появляется при фокусировке на текстовом поле и позволяет пользователю добавлять специальные символы в текст.

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

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

:: Главная :: Свойства и События ::