Как обойти событие OnChange при автоматическом заполнении полей ввода в Delphi

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

При работе с формами в Delphi иногда возникает необходимость обойти событие OnChange при автоматическом заполнении полей ввода, например, TEdit или TMaskEdit. Это может быть полезно, когда вы хотите установить текст в поле ввода без вызова обработчика события изменения, чтобы избежать нежелательных действий, таких как обновление связанных данных или выполнение других операций, связанных с изменением текста.

Подход с использованием флага

Один из способов обойти событие OnChange - использовать флаг, который будет указывать, происходит ли изменение текста программно или пользователем. Пример кода на Object Pascal:

var
  updatingFromCode: Boolean;

procedure TForm1.FormCreate(Sender: TObject);
begin
  updatingFromCode := true;
  Edt1.Text := ASettings.FirstThing;
  updatingFromCode := false;
end;

procedure TForm1.Edt1OnChange(Sender: TObject);
begin
  if not updatingFromCode then
    // Ваш код обработки изменения текста
end;

Отключение и восстановление обработчика события

Другой подход заключается в временном отключении обработчика события OnChange, установке нового текста и восстановлении обработчика. Это можно сделать с помощью временного отключения и последующего включения события, например, в блоке try-finally:

procedure TForm1.SetTextWithoutOnChange(anEdit: TEdit; str: String);
var
  anEvent: TNotifyEvent;
begin
  anEvent := anEdit.OnChange;
  anEdit.OnChange := nil;
  try
    anEdit.Text := str;
  finally
    anEdit.OnChange := anEvent;
  end;
end;

Использование класса для управления событием

Для более удобного и безопасного управления отключением и восстановлением обработчика события можно использовать специальный класс:

TSuspendEvent = class
private
  fObject: TObject;
  fEvent: String;
  fHandler: TMethod;
public
  constructor Create(const aObject: TObject; aEvent: String);
  destructor Destroy; override;
end;

constructor TSuspendEvent.Create(const aObject: TObject; aEvent: String);
begin
  inherited Create;
  fObject := aObject;
  fEvent := aEvent;
  fHandler := GetMethodProp(aObject, aEvent);
  SetMethodProp(aObject, aEvent, @NIL);
end;

destructor TSuspendEvent.Destroy;
begin
  SetMethodProp(fObject, fEvent, fHandler);
  inherited;
end;

Использование класса для отключения события:

with TSuspendEvent.Create(Edit1, 'OnChange') do
try
  Edit1.Text := 'Новый текст';
finally
  Free;
end;

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

С версии Delphi 8 можно использовать Class Helpers для создания дополнительных методов в классе TEdit, которые будут помогать в отключении события OnChange:

type
  TEditHelper = class helper for TEdit
  public
    procedure SetTextDisableOnChange(const AText: string);
  end;

procedure TEditHelper.SetTextDisableOnChange(const AText: string);
var
  OnChangeTmp: TNotifyEvent;
begin
  OnChangeTmp := OnChange;
  try
    OnChange := nil;
    Text := AText;
  finally
    OnChange := OnChangeTmp;
  end;
end;

Использование метода SetTextDisableOnChange:

EditCtrl.SetTextDisableOnChange('Текст без вызова OnChange');

Использование события OnExit вместо OnChange

Ещё один подход - использовать событие OnExit вместо OnChange и привязать его к событию OnKeyUp. Это позволяет обрабатывать изменения текста только при завершении ввода пользователем, а не при каждом изменении.

Применение этих подходов позволит вам избежать нежелательного выполнения кода обработчика события OnChange при автоматическом заполнении полей ввода в Delphi.

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

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

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

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

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