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

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

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