comando en delphi

[skynet]

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]

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]

si muchas gracias

[erickahr]

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'.

[cloayza]

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]

¿como funciona el KeyPreview?

[ecfisa]

Empezado por MAXIUM

¿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:

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]]

Empezado por erickahr

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

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]]

Empezado por skynet

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;