События для Edit

[min@y™]

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

и чо ответили-то?

[Gilius]

В обработчике OnChange Editа проверяем кол-во символов и если кол-во достигло 8 то обрабатываем штрих-код.

procedure TForm3.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text)>=8 then Read_from_BD();
end;

[Dvoishnik]

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

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

внутренний стандарт фирмы

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

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

в половой религии бело

Сообщение от edsjeka

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

смотри ка подошло и Enter тыкать не надо)

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(Edit1.Text) = 8 then
 ShowMessage('пришло время поиска!');
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Length(Edit1.Text)) >= 8) and (Key<>#8)   then Key:=#0 ;
end;
end.

[edsjeka]

Сообщение от Dvoishnik

смотри ка подошло и Enter тыкать не надо)

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

[Dvoishnik]

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

[edsjeka]

Сообщение от Dvoishnik

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

Так я и посмотрел, на него и ориентируюсь. Спасибо за код.