События для Edit

[edsjeka]

Нужно вводить в поле edit данные со штрих-кода, после ввода данных сразу или после нажатия enter выполнять некоторое действие, но еще должна быть возможность вводить символы в edit вручную и после нажатия enter выполнять то же действие. Можно ли объединить это все в одном edit, какие события использовать, чтобы произвести действие после ввода символов в edit и нажатия enter?

[Вадим Мошев]

Нужно вводить в поле edit данные со штрих-кода

Каким образом это происходит?

после ввода данных сразу

Что это значит "сразу"? Вы хотите подсчитывать количество введённых символов, и, если оно достигло некоторого порога, выполнить действие? Тогда событие onKeyPress. В нём проверяете, стало ли количество символов в этом эдите равно порогу, если да, выполнить действие. По нажатию Enter - то же самое, проверить была ли нажата клавиша ENTER (if key = #13), после чего - действие.

Теперь, что касается действия. Я бы посоветовал действие поместить внутрь метода, который надо будет написать для той формы, где всё происходит.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;

    function myAction: TSomeType; // так
    procedure myAction2; // или так
    procedure Edit1KeyPress(Sender: TObject; var Key: Char); 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then begin
    mySomeVariable := myAction; // так
    myAction2; // или так
  end;
end;

end.

[min@y™]

но еще должна быть возможность вводить символы в edit вручную

А невручную - это HID-сканер штрих-кодов?

[Вадим Мошев]

Тоже об этом хотел спросить...

[Smitt&Wesson]

Сообщение от Вадим Мошев

Тоже об этом хотел спросить...

Штрих-коды, вручную? Чё, совсем - обалдели?
У Промышленного штрихш-скатера есть драйвер. На кой чёрт, для него ещё огод городить?

[min@y™]

Штрих-коды, вручную? Чё, совсем - обалдели?

в супермаркете на кассе:
- Зиинааааааааааааа! У меня не пикает!!!!
- Клавка, дерёвня, мля! Набери кнопками, очередь собрала опять, дура тряпошная!
- А тут зависло всё, Зинааааааа...

[Smitt&Wesson]

Маразм крепчал....
Внимание на штрих-код!

[edsjeka]

Сообщение от Вадим Мошев

Каким образом это происходит?

А невручную - это HID-сканер штрих-кодов?

Да, считывается со штрихкода сканером штрих кодов. Все штрих-кода стандартные - 8 символов. Хочу сделать чтобы после ввода или со сканера или вручную после набора 8-ми символов происходил поиск этого кода в БД. Событие OnChange мне не подходит, т.к. при каждом вводе символа делает то, что мне нужно сделать после ввода именно 8-ми символов.

[min@y™]

Все штрих-кода стандартные - 8 символов.

Чо за стандарт? Всегда 13 было жэж!

т.к. при каждом вводе символа делает то, что мне нужно сделать после ввода именно 8-ми символов.

Ну канешна! Посчтитать количество символов перед запуском поиска не позволяет религия, да? Или половая ориентация?

[edsjeka]

Сообщение от min@y™

Чо за стандарт? Всегда 13 было жэж!

Ну канешна! Посчтитать количество символов перед запуском поиска не позволяет религия, да? Или половая ориентация?

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