Ver Mensaje Individual
  #1  
Antiguo 27-06-2012
edgar_prospero edgar_prospero is offline
Miembro
NULL
 
Registrado: mar 2012
Posts: 202
Reputación: 13
edgar_prospero Va por buen camino
operaciones al pulsar la tecla F1

que hay amigos aqui con una duda tengo varios label con los cuales hago operaciones de multiplicar y sumar bueno lo que quiero lograr es que cuando yo le de a la tecla F1 me haga las operaciones lo intente con el siguiente codigo pero me marca un error que dice [DCC Error] Unit4.pas(163): E2026 Constant expression expected

a ver si alguien puede echarme la mano con eso

Código Delphi [-]
procedure TForm4.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 case Key of
    VK_F1:

      label9.Caption:= floatToStr( StrTofloat(label7.Caption) * StrTofloat('.16'));
 label11.Caption:= floatToStr( StrTofloat(label7.Caption) + strTofloat(label9.Caption) );
    end;
end;
Responder Con Cita