Проверка на соответствие содержимого TEdit

Как мне проверить на соответствие содержимое компонента TEdit?

Предположим, вы регулярно пользуетесь компонентами TEdit (в отличие от компонентов TDBEdit), и если так, то наилучшим местом для осуществления проверки на соответствие является обработчик события OnExit компонента TEdit. Данное событие наступает при каждом покидании фокуса компонента.

Обычно, при вводе неправильного текста в поле редактирования, у вас возникает желание послать предупреждение пользователю и вернуть фокус обратно. Тем не менее, в данном решении трудность подстерегает при попытке установить фокус в обработчике события OnExit. Поскольку Windows остается "посередине" при передаче фокуса от одного элемента управления другому в обработчике события OnExit, вы можете получить состояние нестабильного поведения компонентов, если попытаетесь в это время изменить фокус.

Решением в данной ситуации может служить попытка послать сообщение в обработчике события компонента TEdit OnExit вашей форме. Определенное пользователем и посланное сообщение может послужить отправной точкой для начала проверки содержимого поля редактирования. Поскольку посланное сообщение располагается в конце очереди сообщений, то это дает Windows возможность завершить изменение фокуса прежде, чем вы попытаетесь передать фокус другому элементу управления.

Помещенный ниже текст модуля и текстовое представление формы (DFM) призваны продемонстрировать эту технику:

{ *** НАЧАЛО КОДА МОДУЛЯ UNIT1.PAS *** }
unit Unit1;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, Mask;

const
  { Определенное пользователем сообщение }
  um_ValidateInput = wm_User + 100;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    procedure Edit1Exit(Sender: TObject);
  private
    { обработчик определенного пользователем события }
    procedure ValidateInput(var M: TMessage); message um_ValidateInput;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ValidateInput(var M: TMessage);
begin
  { Следующая строка является строкой проверки. Я хочу убедиться в том, }
  { что первый символ является буквенным символом верхнего регистра. }
  { Помните о преобразовании типа lParam к TEdit. }
  if not (TEdit(M.lParam).Text[1] in ["a".."z"]) then
  begin
    ShowMessage("Содержимое не отвечает требованиям"); { Орем на пользователя }
    TEdit(M.lParam).SetFocus; { Снова устанавливаем фокус }
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  { Посылаем сообщение самому себе, говорящее о необходимости }
  { проверки содержимого. Передаем экземпляр TEdit (Self) как }
  { lParam сообщения. }
  PostMessage(Handle, um_ValidateInput, 0, longint(Sender));
end;

end.
{ *** КОНЕЦ КОДА МОДУЛЯ UNIT1.PAS *** }

{ *** НАЧАЛО КОДА ФАЙЛА UNIT1.DFM *** }
object Form1: TForm1
  Left = 200
    Top = 99
    Width = 318
    Height = 205
    Caption = "Form1"
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = "System"
    Font.Style = []
    PixelsPerInch = 96
    TextHeight = 16
    object Edit1: TEdit
    Left = 32
      Top = 32
      Width = 121
      Height = 24
      TabOrder = 0
      Text = "Edit1"
      OnExit = Edit1Exit
  end
  object Edit2: TEdit
    Left = 160
      Top = 32
      Width = 121
      Height = 24
      TabOrder = 1
      Text = "Edit2"
      OnExit = Edit1Exit
  end
  object Edit3: TEdit
    Left = 32
      Top = 64
      Width = 121
      Height = 24
      TabOrder = 2
      Text = "Edit3"
      OnExit = Edit1Exit
  end
  object Edit4: TEdit
    Left = 160
      Top = 64
      Width = 121
      Height = 24
      TabOrder = 3
      Text = "Edit4"
      OnExit = Edit1Exit
  end
  object Button1: TButton
    Left = 112
      Top = 136
      Width = 89
      Height = 33
      Caption = "Button1"
      TabOrder = 4
  end
end
{ *** КОНЕЦ КОДА ФАЙЛА UNIT1.DFM *** }

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация по разработке на Delph - "Проверка на соответствие содержимого TEdit", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!