Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Edit inhabilitado y luego habilitado (https://www.clubdelphi.com/foros/showthread.php?t=48526)

tazzmk 27-09-2007 04:32:39

Edit inhabilitado y luego habilitado
 
imagen 01

imagen 02

hola como podran ver funciona la operacion de numeros y todo eso

la idea es que el usuario solo pueda ingresar en los tres primeros edit, y los demas dejarlo no disponibles, solo para mostrar el resultado final

como se le podra agregar un efecto de Edit bloqueado, es decir el usuario no puede ingresar datos, pero cuando se calcule el resultado debe de mostrar abilitado mas el resultado final, en la imagen 02 se aprecia

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
n1,n2,n3,suma,resultado:word;
begin
n1:=strtoint(Edit1.text);
n2:=strtoint(Edit2.text);
n3:=strtoint(Edit3.text);
suma:=n1*2+n2*4+n3*6;
resultado:=suma;
Edit4.text:=inttostr(resultado);
Edit5.text:= Edit1.text + ' ' + Edit2.text+ ' ' + Edit3.text + '=' + Edit4.text;
end;

dec 27-09-2007 04:36:29

Hola,

Puedes deshabilitar y habilitar un "Edit" mediante su propiedad "Enabled". Sin embargo, esta propiedad hará que la apariencia del "Edit" indique, de alguna manera (sombreando el componente) que está deshabilitado. Y cuentas también con la propiedad "ReadOnly". Esta propiedad no permite ingresar nada en el "Edit", pero, su apariencia, en lo demás, no difiere de otro "Edit" cualquiera.

Caral 27-09-2007 04:37:18

Hola
No se exactamente lo que necesitas, pero lo que entiendo es que en el edit que muestra el resultado no pueda escribir, si es asi:
Código Delphi [-]
Edit5.ReadOnly:= True;
Con esto no se podra escribir en el.
Saludos

tazzmk 28-09-2007 05:28:04

Gracias es justo lo que buscaba !! saludos


La franja horaria es GMT +2. Ahora son las 00:04:16.

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