Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   resolver operaciones sin botones (https://www.clubdelphi.com/foros/showthread.php?t=95324)

AlejandroCalica 06-08-2021 02:07:15

resolver operaciones sin botones
 
1 Archivos Adjunto(s)
Muy buen dia a todos, saludos desde Tjuana Mexico, tengo una laptop y tengo 3 idiomas registrados 2 de ellos para el teclado asi qque ya saben al cambiar de teclados cambian tambien los signos de operaciones en las teclas fiscas y pense xq no realizar una aplicacon que capture las teclas y realice algunas funciones y pense en lo basico una calculadora para lo cual ocupo como signos de operacion las flechas y en un TLabel mostrar los numeros pulsados y con tecla enter el signo igual que me dara el resultado dentro del TLabel.

pero me salieron algunas dudas la principal creare 2 variables 1 para capturar el prmer valor y otra para el siguiente valor de la operacion

la cuestion es como hacer qque en dichas variables de guarden las teclas preconadas?
esta es la imagen que llevo de dicha calculadora.

ya los operadors funcionan, alguien podria explicarme como ingresar los numeros del teclado que se ingresen? y otro detalle es aunque pongan punto o como al final el programa reconosca esa tecla y la maneje como solo punto.

como veran la calculadora no tiene botones numericos, ya ue no creo hagan falta solo la de operaciones para que el usuario final que soy yo jajajaja sepa que tecla hace que operacion, con tecla DELATE borro uno a uno los numeros ingresados, con la tecla ENTER hago la operacion y con tecla ESC vacio las varables y limpio en Tlabel

espero haber explicado bien mi problematica, ya busque nformacion y no localice algo que me ayudara

APO 11-08-2021 11:11:27

Hola Alejandro,
Para saber qué tecla han pulsado, podrías poner en el evento KeyDown que te muestre el código de la tecla. Y luego, ya dependiendo de la tecla que sea, harás una cosa u otra...

Algo así, por ejemplo:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   ShowMessage(IntToStr(Key));
end;


La franja horaria es GMT +2. Ahora son las 21:30:37.

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