Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Ayuda con Edit (https://www.clubdelphi.com/foros/showthread.php?t=31558)

CROWW_007 11-05-2006 08:40:59

Ayuda con Edit
 
Hola, mi problema es el siguiente, tengo un edit (edit1), dentro de una forma (form4) en delphi, lo que quiero hacer es que al momento de entrar en esa forma y que una persona con un escaner lea un codigo de barras de 5 digitos, automaticamente se vaya a otra forma (form5).

Es decir que cuando llegue al caracter 5 (de la cadena de numeos), se pase a la siguiente forma, me podrian ayudar??

Gracias

nenufer 11-05-2006 09:13:34

Hola!! No se si es esto lo que buscas. Pero con esto cuando llegas al caracter nº 5 te lleva al form5. Si lo que buscas es mas, porque veo que hablas de un scaner o algo asi, buf ahi no creo que te pueda ayudar. Espero que esto te sirva de algo.;)

Código Delphi [-]
procedure TForm4.EditChange(Sender: TObject);
begin
  if length(Edit.Text) = 5 then
    Form5.Show;

end;

Acanol 11-05-2006 09:39:51

No se si te servira, pero en el change del edit:
Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var
tam:integer;
begin
Tam:=Length(edit1.text);
if tam=5 then
   begin
       form2.show;
   end;
end;

Se me adelantaron


La franja horaria es GMT +2. Ahora son las 08:02:37.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi