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;