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
__________________
{Saludos.}
//Todos los dias se aprende algo nuevo, por que no enseñar nosotros?
Última edición por Acanol fecha: 11-05-2006 a las 09:40:43.
Razón: etiquetas
|