ayuda con teclas

[DarkSton]

hola amigos , quería hacer una consulta ,como puedo hacer para que yo al presionar un button1 en delphin7 se ejecute la función F8 como si hubiera presionado en el teclado F8 ?

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

Crea un componente TActionList, añade una TAction a la lista.
Configura las propiedades de la TAction, en concreto la propiedad Shortcut a F8.
Y en tu botón asigna en la propiedad Action la Action creada. Con eso debería bastar.



Asignas la TAction al botón:


En general, no sólo para casos como este, sino que a mi parecer cualquier TButton/TMenúItem/... que haya en la aplicación debe estar "controlado" por su TAction corresponsdiente.

Y el código correspondiente, se debe añadir al OnExecute de la TAction.

[DarkSton]

Amigo me refiero, un ejemplo cuando das clic derecho sobre el escritorio y pones actualizar y luego presionas f5 se actualiza el escritorio , ahora quiero crear un form y agregar un button lo cual al darle clic al button , simular que presiono F5 y hacer que el escritorio se actualize . Es posible eso ?

[[oscarac]]

Click derecho y actualizar es lo mismo que presionar f5

creo que estas redundando la accion, en todo caso si quieres que se actualice puedes invocar el onshow

[DarkSton]

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

Crea un componente TActionList, añade una TAction a la lista.
Configura las propiedades de la TAction, en concreto la propiedad Shortcut a F8.
Y en tu botón asigna en la propiedad Action la Action creada. Con eso debería bastar.



Asignas la TAction al botón:


En general, no sólo para casos como este, sino que a mi parecer cualquier TButton/TMenúItem/... que haya en la aplicación debe estar "controlado" por su TAction corresponsdiente.

Y el código correspondiente, se debe añadir al OnExecute de la TAction.

hice esto , pero el button se desactivo , pero lo que quiero es que cuando yo haga clic al button1 mi pc piense que el presionado F5
lo que tu pusiste hace lo contrario .

procedure TForm1.Action1Execute(Sender: TObject);
begin
button1.Enabled := true;
end;

al presionar F5 activa el button1

[[escafandra]]

Si lo que quieres es simular una pulsación de teclado, la solución la tienes aquí.

Código Delphi [-]
  SimKey(VK_F5, true);
  SimKey(VK_F5, false);

El tema es que la ventana que tenga el foco es la que recibirá el mensaje de F5 y será el mismo botón que has pulsado. No creo que eso es lo que quieras hacer.


Para actualizar todas las ventanas puedes hacer esto:

Código Delphi [-]
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

Tendrás que especificar bien lo que pretendes hacer para que se te pueda contestar a tu pregunta.

[DarkSton]

Agrego
SimKey(VK_F5, true);
SimKey(VK_F5, false);
Dentro del button ?

[[escafandra]]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SimKey(VK_F5, true);
  SimKey(VK_F5, false);
end;

Ya te adelanto que aunquer eso simula una pulsación hardware, la pulsación será leida por la ventana que tenga el foco del teclado y en este caso va a ser el propio botón sobre el que haces click.
O conoces la ventana (el Handle de esa ventana) a la que lo diriges y le pasas el foco antes de simular la pustación, o no te va a funcionar.

Realmente no has explicado bien tu problema y es por eso que añado aclaraciones al tema.
Quizás te interese algo que ya te apunté:

Código Delphi [-]
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, 0);

Saludos.