Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Condicional cuando un TEdit está vacío (https://www.clubdelphi.com/foros/showthread.php?t=74204)

Parabol77 05-06-2011 18:04:44

Condicional cuando un TEdit está vacío
 
Buenas a todos,

estoy diseñando un programa y estoy teniendo un problema, aparentemente muy tonto.

Mi programa consta de un TEdit y un botón. Quiero poner la condición de que, si el TEdit está vacío, el botón aparezca como desactivado.

He hecho esto:

Código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

  If Edit1.Text='' Then Button1.Enabled:=False;

end;

Pero no funciona.

Agradecería cualquier tipo de ayuda.

Muchas gracias de antemano.
Un saludo.

ecfisa 05-06-2011 21:09:53

Hola Parabol77.

Tendría que funcionarte, el código es correcto. Por las dudas de que haya algún espacio probá:
Código Delphi [-]
  if Trim(Edit1.Text) = '' Then Button1.Enabled:=False;

También podrías hacer:
Código Delphi [-]
  Button1.Enabled:= Length(Edit1.Text) > 0;

Saludos.

Pedro-Juan 05-06-2011 23:47:24

Yo lo he hecho muchas veces, pero en el evento OnChange del Edit.

Un saludo.

ecfisa 06-06-2011 00:51:08

Hola Pedro-Juan.

Coincido con vos que a priori, pareciera ser más adecuado ubicar el código en el evento OnChange u OnExit (de acuerdo a lo que quiera hacer).
Pero también funciona correctamente en el evento OnKeyPress.

Saludos.

Parabol77 06-06-2011 09:04:18

¡Muchísimas gracias a ambos!
He probado a asociar el código al evento OnChange, y ahora funciona perfectamente.

De nuevo, ¡gracias!


La franja horaria es GMT +2. Ahora son las 10:38:20.

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