Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   comando en delphi (https://www.clubdelphi.com/foros/showthread.php?t=69044)

skynet 22-07-2010 19:17:49

comando en delphi
 
Hola quisiera saber como hacer en delphi para q con la convinacion de Ctrl + c cierre mi aplicacion osea funcione de la misma manera q el boton salir. gracias

sferron1 22-07-2010 20:44:47

comando en delphi
 
Puedes probar lo siguiente:
1. en el form principal activa la propiedad KeyPreview a true.
2. En el OnkeyUp del form principal ejecutas el código
Código Delphi [-]
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
    //67 y 99 son el código ascci de C y de c 
    if ((key=67) or (key=99)) and (ssCtrl in Shift) then
        Close;
end;

Espero que te sirva de ayuda.

skynet 22-07-2010 20:54:22

si muchas gracias

erickahr 22-07-2010 20:59:44

Perdón, no soy moderador ni mucho menos, solo un miembro mas de Club Delphi, hago la observacion que has posteado en tres categorias la misma pregunta, includo en BBDD, que no tiene nada que ver con tu pregunta, te sugiero que eches un vistazo a la guia de estilo.

Gracias y perdón si no tengo ninguna autoridad, solo es una recomendacion, para mantener el foro 'limpio'. :D

cloayza 22-07-2010 21:03:21

Tambien podrias usar lo siguiente, y asi evitar buscar el codigo ascii de las letras que deseas utilizar.

Código Delphi [-]
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
    //67 y 99 son el código ascci de C y de c 
      If ( (Key in [Ord('C'), Ord('c')] ) And (ssCtrl in Shift)) Then
      //if ((key=67) or (key=99)) and (ssCtrl in Shift) then
        Close;
end;

Saludos

MAXIUM 22-07-2010 21:42:46

¿como funciona el KeyPreview?

ecfisa 22-07-2010 21:54:07

Cita:

Empezado por MAXIUM (Mensaje 371247)
¿como funciona el KeyPreview?

Hola.

Al poner KeyPreview en True, el formulario captura el teclado antes que otro control.

Para agregar opciones, otra forma de capturar Ctrl+C:

Código:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((GetKeyState(VK_CONTROL)and 128)=128)and
    (Key = Ord('C')) then
    Close;
end;


Saludos

Neftali [Germán.Estévez] 23-07-2010 12:22:53

Cita:

Empezado por erickahr (Mensaje 371239)
Gracias y perdón si no tengo ninguna autoridad, solo es una recomendacion, para mantener el foro 'limpio'. :D

Al contrario erickahr, se agradece que miembros de los foros "se preocupen" por el buen funcionamiento de estos. Cualquiera, siempre que sea con educación, puede hacer este tipo de recomendaciones a la "gente nueva".

A veces como moderador "cansa" tener que estar poniendo los mismo enlaces (la Guía de estilo debe ser el término que má she repetido en los foros) y comentando las mismas cosas.:(

Un saludo y gracias de nuevo.

Neftali [Germán.Estévez] 23-07-2010 12:26:01

Cita:

Empezado por skynet (Mensaje 371220)
Hola quisiera saber como hacer en delphi para q con la convinacion de Ctrl + c cierre mi aplicacion osea funcione de la misma manera q el boton salir. gracias

Otra opción, mas sencilla (o al menos con menos código), es poner utilizar una ActionList. Crear una Action, como ShortCut poner CTRL+C y en evento:

Código Delphi [-]
  Close;


La franja horaria es GMT +2. Ahora son las 06:45:32.

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