FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
problema para limpiar cajas de texto
hola amigos tengo un problema cree un procedimiento para limpiar cajas de texto pero cuando compila el programa me marca en rojo. Alguien podria decirme que pasa, pasarme una funcion o procedimiento para limpiar cajas de texto.
desde ya gracias......... soy nuevo en delphi Procedure limpiar(Sender: Tobject); begin CmbDireccion.Text:=''; EdNumEmpleado.Text:=''; EdNombre.Text:=''; EdAppaterno.Text:=''; EdApmaterno.Text:=''; EdNivel.Text:=''; EdLogin.Text:=''; EdPassword.Text:=''; end; |
#2
|
||||
|
||||
Huuuuu es sangre!
En que linea "marca en rojo" y que mensaje vien adjunto a éste? CmbDireccion.ItemIndex := 0; ???? |
#3
|
|||
|
|||
Mensaje
el mesaje es UNdeclared Identifier 'CmbDireccion' el mesaje es para todos los edit del procedimieento...
ya lo tengo declarado el procedimiento y nada |
#4
|
||||
|
||||
Y revisaste si todos los nombres (CmbDireccion, EdNumEmpleado, EdNombre, EdAppaterno, EdApmaterno, EdNivel, EdLogin, EdPassword) existen en tu formulario ???
|
#5
|
|||
|
|||
mensaje
si existen la verdad no se que pasa???
|
#6
|
||||
|
||||
Hola tebre,
Los TEdit cuentan con el método Clear que sirve para borrar el contenido. Ahora para saber lo que está sucediendo, sería bueno que nos comentes más al respecto. Viendo el código te podríamos decir más. Esa pequeña muestra que nos haces llegar no dice mucho del problema. Saludos, |
#7
|
|||
|
|||
codigo
Lo que necesito es un procedimiento para limpiar mis controles.. y no estar repitiendo codigo.
la ayuda seria porque falla mi codigo o que de plano me dieran otra solucion unit UEmpleados; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons; type TFrmEmpleados = class(TForm) PcModificarEmpleado: TPageControl; TabModificaEmpleado: TTabSheet; TabSheet3: TTabSheet; TabSheet1: TTabSheet; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Login: TLabel; password: TLabel; EdNumEmpleado: TEdit; EdAppaterno: TEdit; EdApmaterno: TEdit; EdNivel: TEdit; CmbDireccion: TComboBox; EdNombre: TEdit; EdLogin: TEdit; EdPassword: TEdit; BtnGuardar: TBitBtn; BtnCancelar: TBitBtn; BtnNuevo: TBitBtn; LblClaveDireccion: TLabel; LblEncriptado: TLabel; CmbEmpleado: TComboBox; Seleccionar: TLabel; BtnModificar: TBitBtn; LblModificaEmpleado: TLabel; EdMNumEmpleado: TEdit; EdMNombre: TEdit; EdMAppaterno: TEdit; EdMApmaterno: TEdit; EdMNivel: TEdit; EdMLogin: TEdit; EdMPassword: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; CmbMDireccion: TComboBox; BtnMActualizar: TBitBtn; BtnMCancelar: TBitBtn; BtnMSalir: TBitBtn; lBLGuardaClave: TLabel; procedure CmbMDireccionEnter(Sender: TObject); procedure BtnModificarClick(Sender: TObject); procedure CmbEmpleadoSelect(Sender: TObject); procedure TabModificaEmpleadoEnter(Sender: TObject); procedure CmbDireccionEnter(Sender: TObject); procedure CmbDireccionClick(Sender: TObject); procedure EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char); procedure EdNivelKeyPress(Sender: TObject; var Key: Char); procedure BtnCancelarClick(Sender: TObject); procedure CmbDireccionSelect(Sender: TObject); procedure FormShow(Sender: TObject); procedure EdPasswordEnter(Sender: TObject); procedure EdLoginEnter(Sender: TObject); procedure EdNivelEnter(Sender: TObject); procedure EdApmaternoEnter(Sender: TObject); procedure EdAppaternoEnter(Sender: TObject); procedure EdNombreEnter(Sender: TObject); procedure EdNumEmpleadoEnter(Sender: TObject); procedure EdPasswordClick(Sender: TObject); procedure EdLoginClick(Sender: TObject); procedure EdNivelClick(Sender: TObject); procedure EdApmaternoClick(Sender: TObject); procedure EdAppaternoClick(Sender: TObject); procedure EdNombreClick(Sender: TObject); procedure EdNumEmpleadoClick(Sender: TObject); procedure BtnGuardarClick(Sender: TObject); procedure BtnNuevoClick(Sender: TObject); //procedure limpiar(Sender: TObject); private { Private declarations } public { Public declarations } end; var FrmEmpleados: TFrmEmpleados; implementation uses Uconexion; {$R *.dfm} function encriptar(aStr: String; aKey: Integer): String; begin Result:=''; RandSeed:=aKey; for aKey:=1 to Length(aStr) do Result:=Result+Chr(Byte(aStr[aKey]) xor random(256)); end; Procedure limpiar(Sender: Tobject); begin CmbDireccion.Text:=''; EdNumEmpleado.Text:=''; EdNombre.Text:=''; EdAppaterno.Text:=''; EdApmaterno.Text:=''; EdNivel.Text:=''; EdLogin.Text:=''; EdPassword.Text:=''; end; |
#8
|
||||
|
||||
Hola,
EDITO: Cambio todo: Puede declarar sus procedimientos en la sección private, luego oprimir Ctrl + C y el IDE le completará la implementación.
__________________
"constructive mind, destructive thoughts" |
#9
|
|||
|
|||
aclaracion
lo pase al private y oprimime Ctrl+c y no paso nada...
aclaacion del codigo.. tengo en comentario la funcion porque no la estoy usando...... el problema persiste...alguien tiene alguna otra forma de limpiar los controles..el objetivo es no repetir el codigo de limpiado de controles |
#10
|
||||
|
||||
Tebre, por favor emplea las etiquetas DELPHI para resaltar el código.
De todas formas veo claramente que no todos los eventos que declaraste están con su correspondiente "cuerpo" o código. O te olvidaste de copiarlos, o simplemente es porque allí está parte del problema. Saludos, |
#11
|
||||
|
||||
Mi error, quise decir Shift + Ctrl + C, para que quede así:
__________________
"constructive mind, destructive thoughts" |
#12
|
||||
|
||||
Cita:
E invocarlo cuando sea necesario. Ahora, si deseas limpiar un grupo de TEdits y no sólo uno lo puedes hacer algo así:
Lo hice más o menos al vuelo... no tengo Delphi a mano puede tener algunos errores. La idea es recorrer los componentes y si es un TEdit, borrar el contenido. Saludos, |
#13
|
|||
|
|||
Resuelto
Gracias a todos por su ayuda.. es problema resuelto
en verdad son de gran ayuda en este caso para mi que estoy empezando.. saludos!!!! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Estilo en cajas de texto | odrack | Varios | 1 | 03-06-2008 21:55:18 |
Validar Cajas de texto | grone35 | Varios | 2 | 30-08-2006 21:03:25 |
limpiar un fichero .gdb para ocupar menos | nugame | Conexión con bases de datos | 0 | 13-01-2005 13:28:01 |
Otra vez las cajas registradoras | buitrago | Varios | 2 | 01-09-2004 21:04:59 |
¿Cómo calcular la mejor colocación de cajas? | nesetru | Varios | 8 | 23-05-2004 11:44:19 |
|