Ayuda para crear una funcion o metodo
Tengo definido un documento que ingresa datos, para lo que he definido, varios edit, de manera que en el onexit del primero se debe evaluar un codigo, dependiendo de lo cual activa el sigiente edit o vuelve al mismo de origen.
Como esta operación debo repetirla para cada linea de ingreso de datos, quisiera usar un metodo o funcion que evite repetir esta operación en el onexit de cada edit.
He intentado lo siguiente, pero no me funciona, por lo que agradecere cualquier ayuda.
procedure TForm17.Edit8Exit(Sender: TObject);
begin
NumeroEdit:=8;
NumeroMask:=2;
correctoelcodigo(8,2);
end;
procedure correctoelcodigo;
begin
if messagedlg ('¿Correcto el codigo?',mtwarning,
[mbyes,mbno],0)=mryes then
begin
numeroedit:=numeroedit+1;
'edit'+inttostr(numeroedit).setfocus; //NO LO RECONOCE COMO EDIT9
end
else
'edit'+inttostr(NumeroMask).setfocus; //NO LO RECONOCE COMO EDIT8
end;
end;
Como esta operación debo repetirla para cada linea de ingreso de datos, quisiera usar un metodo o funcion que evite repetir esta operación en el onexit de cada edit.
He intentado lo siguiente, pero no me funciona, por lo que agradecere cualquier ayuda.
procedure TForm17.Edit8Exit(Sender: TObject);
begin
NumeroEdit:=8;
NumeroMask:=2;
correctoelcodigo(8,2);
end;
procedure correctoelcodigo;
begin
if messagedlg ('¿Correcto el codigo?',mtwarning,
[mbyes,mbno],0)=mryes then
begin
numeroedit:=numeroedit+1;
'edit'+inttostr(numeroedit).setfocus; //NO LO RECONOCE COMO EDIT9
end
else
'edit'+inttostr(NumeroMask).setfocus; //NO LO RECONOCE COMO EDIT8
end;
end;
1 Respuesta
Respuesta de antipauli
1