Lanzar evento Keydown sin apretar la tecla (no, no es telekinesis)

[papulo]

Quiero ver como puedo hacerlo, para lanzar lo que seria un evento de OnKeyDown, ya definido en otra parte del codigo, desde otra funcion.

Algo asi como: (Y ante todos ustedes, mi primer esquema de DELPHI)

Código Delphi [-]
  procedure TForm1.cLenguajes.OnChange;
  begin
   Showmessage('Pero que pacha, trooooooon!!!'); //Lo que sea que haga antes
 sLang := cLenguajes.Text; //Modifico la variable de turno
   VK_F5; //Aqui quiero que refresque la pantalla y las operaciones calculada, que equivale a presionar F5
  end;

¿Me he explicado?

[epuigdef]

En lugar de "tocar" tenas de eventos, te recomiendo lo siguiente:


Pasa el código que ejecutas cuando pulsas el F5 a un procedimiento aparte
En el onkeydown, si pulsan F5 llamas a este procedimiento
Y en la función que comentas, pues también llamas a este procedimiento

Espero que te sirva.

Edu

[papulo]

No me interesa lanzar procesos a parte para presionar las teclas, ya lo tengo todo muy claro y limpio, como para hacer procesos a parte.

¿Tan complicado es decirle al programa "Haz como si pulsara F5, chavalote" y dejar que haga lo que le toca?

De todas formas, gracias por la respuesta, siempre es un detalle que la gente responda tan rapido.

[Neftali [Germán.Estévez]]

Si en tu evento tienes algo "parecido" a esto:

Código Delphi [-]
   if (key = vk_F5) then begin
     MessageDlg('keyDown F5', mtWarning, [mbOK], 0);
   end;

para simular la tecla puedes usar PostMessage:

Código Delphi [-]
   // Debes enviarlo a un control, form,...  (en éste caso sería a un Memo)
   PostMessage(Memo1.Handle, WM_SYSKEYDOWN, VK_F5, 0);

[papulo]

Mi evento apretando F5 es exactamente este:

Código Delphi [-]
 procedure TFiller.FormKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin
 case Key of
 VK_F5 : case iStatus of
             0 : exit;
             else
             wKeyPress:= VK_F5;
             Lanzar_Consulta;
         end;
 VK_ESCAPE : case iStatus of
 ...

El otro evento que tendria que lanzar una orden como si apretara F5 seria este:

Código Delphi [-]
 procedure TFiller.cIdiomaChange(Sender: TObject);
 begin
 cLang.ItemIndex := cIdioma.ItemIndex;
 sLang := cLang.Text;
 //Aqui la instruccion que me falta, que lance el evento que se inicia al apretar F5.
 end;

Dicho queda.

Sobre lo que tu me dices, aun me suena a chino, soy un pez aun.

[epuigdef]

Cuestión de gustos. A mi me parece incluso más limpio con un simple procedimiento que creando mensajes de teclado, pero bueno, funciona de las dos formas!

Un saludo

Edu

[Neftali [Germán.Estévez]]

Empezado por papulo

//Aqui la instruccion que me falta, que lance el evento que se inicia al apretar F5.

En esa línea coloca ésta:

Código Delphi [-]
      PostMessage(Self.Handle, WM_SYSKEYDOWN, VK_F5, 0);

[papulo]

CopyPasteado. ¿Me puedes explicar que es lo que he hecho? Retengo mejor las cosas cuando las entiendo.

Gracias.

[Neftali [Germán.Estévez]]

Resumiendo mucho, lo que has hecho es utilizar la función de la API PostMessage para enviar un mensaje a un control (en éste caso el form).

-------------------------------------------------------------------------------
API HELP:
The PostMessage function places (posts) a message in the message queue associated with the thread that created the specified window and then returns without waiting for the thread to process the message.
-------------------------------------------------------------------------------

Cuando se presiona una tecla, internamente se gestiona utilizando diferentes mensajes. En éste caso, cuando pulsas una tecla (Down) se utiliza el mensaje WM_SYSKEYDOWN que le llega al formulario con el valor -en este caso- VK_F5 (que es la constante que define el F5).

La API anteriormente citada sirve para añadir un nuevo mensaje a la cola de mensajes y lo que has hecho es algo así como: "Añadir a la cola un nuevo mensaje para el Formulario -Self.Handle-, del tipo WM_SYSKEYDOWN y con el valor VK_F5".

[papulo]

Me va a las 1000 maravillas. Gracias miles, de verdad, de la buena.