Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   onkeydown en el caption (https://www.clubdelphi.com/foros/showthread.php?t=25665)

emiliu 29-09-2005 19:18:10

onkeydown en el caption
 
Hola soy nuevo en lo que a programación a delphi se refiere y quiero que al pulsar una tecla, por ejemplo la a, y que al pulsarla en el caption salga la frase, "el programa se está ejecutando".

Gracias de antemano!!;)

vtdeleon 29-09-2005 19:29:06

Saludos

Bienvenido al ClubDelphi, ya que es tu 1er hilo :)
Cita:

Empezado por emiliu
quiero que al pulsar una tecla, por ejemplo la a, y que al pulsarla en el caption salga la frase, "el programa se está ejecutando".

Pulsar dónde?, Caption de quién?
Bueno, utiliza el evento Onkeypress o el OnKeyUp para esto y escribe tu código en ese evento y punto.;)

jmariano 29-09-2005 19:37:37

A lo dicho por vtdeleon, comentar que el evento lo has de implementar en el mismo formulario y poner la propiedad 'KeyPreview' del formulario a "True" (esta propiedad hace que todas las pulsaciones del teclado sean procesadas antes por el formulario, con esto evitamos tener que codificar el evento por cada control).

Código Delphi [-]
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Form1.Caption := 'La aplicación se está ejecutando';  
  Key := #0; // Elimina cualquier tecla pulsada del bufer
end;

Saludos!

roman 29-09-2005 20:01:36

Un ejemplo un tanto cuanto drástico jmariano. Acabas de inhabilitar cualquier pulsación. :p

// Saludos

jmariano 29-09-2005 20:08:56

Pos sip, tienes razón!, lógicamente, la sentencia anterior, tendría que ir dentro de alguna condición que detectara cuando la aplicación se "cargó" para que vuelva a procesar las teclas ;)
(supongo que el objetivo será que el usuario no pueda hacer nada hasta que se termine de realizar alguna operación durante el inicio de la aplicación...)


La franja horaria es GMT +2. Ahora son las 21:05:08.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi