Una Pregunta
Publicado por paulina (4 intervenciones) el 25/07/2005 19:56:19
Hola
soy principiante y no se como colocar el resultado de una operación en un panel alguien me podria decir como.
gracias
estes es mi codigo
procedure TForm3.Button1Click(Sender: TObject);
var
temp:Real;
error:integer;
begin
temp := StrToFloat(Edit2.Text)* StrToFloat(Edit3.Text);
Edit4.Text:=Format('%0.2f',[temp]);
if temp >= 500 then
begin
Panel2.Caption:='Sueldo'; ///en esta parte es donde quiero colocar el codigo
end
Else
begin
Panel3.Caption:='$1200.00'; ///este es un bono
Label7.Caption:='Mil Docientos pesos';
end
end;
end.
soy principiante y no se como colocar el resultado de una operación en un panel alguien me podria decir como.
gracias
estes es mi codigo
procedure TForm3.Button1Click(Sender: TObject);
var
temp:Real;
error:integer;
begin
temp := StrToFloat(Edit2.Text)* StrToFloat(Edit3.Text);
Edit4.Text:=Format('%0.2f',[temp]);
if temp >= 500 then
begin
Panel2.Caption:='Sueldo'; ///en esta parte es donde quiero colocar el codigo
end
Else
begin
Panel3.Caption:='$1200.00'; ///este es un bono
Label7.Caption:='Mil Docientos pesos';
end
end;
end.
Valora esta pregunta


0