programar boton ? y X

[ingabraham]

hola,.
necesito programar estos dos botones que tienen los form asi:

si se preciona f1 se realiza un evento este ?
y si se preciona el esc se activara el x

entonces para que estos botones hagan algo donde meto el codigo

si quiero mandarlos a un procedimiento o algo asi.

Gracias de antemano a la colaboración que me puedan brindar.

[[white_zombie]]

Hola, para que te salga la ayuda pulsando F1 hay unas opciones en las propiedades del formulario que los permiten, creo recordar que helpfile y alguna otra.

Para cerrar la aplicación, utiliza el componente TActionList donde eliges la tecla o combinacion de tecla que quieras y en el evento OnExecute pones form1.close, lo cual es como si pulsases el boton X.

Un Saludo.

[MiKloSS]

Puedes programarlos en el evento click del boton, y para poder llamarlos con las teclas rapidas f1 y esc, tienes que mandarlos llamar desde el evento shortcut de la forma... salu2

[ingabraham]

Empezado por white_zombie

Hola, para que te salga la ayuda pulsando F1 hay unas opciones en las propiedades del formulario que los permiten, creo recordar que helpfile y alguna otra.

Para cerrar la aplicación, utiliza el componente TActionList donde eliges la tecla o combinacion de tecla que quieras y en el evento OnExecute pones form1.close, lo cual es como si pulsases el boton X.

Un Saludo.

nada
el helpfile no hace nada
ha y cual es la combinacion para esc

[ingabraham]

Empezado por MiKloSS

Puedes programarlos en el evento click del boton, y para poder llamarlos con las teclas rapidas f1 y esc, tienes que mandarlos llamar desde el evento shortcut de la forma... salu2

no me puedes dar un ejemplo

que es lo que voy aponer
digamos
en on help
yo puse un showmessage y no me muestra nada

[[white_zombie]]

Como comenta el amigo MiKloSS seria algo asi:

Código Delphi [-]
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin

if (msg.CharCode=VK_ESCAPE) and (msg.result=1)  then
  begin
    showmessage('Has presionado ESC');
  end
 else if (msg.CharCode=VK_F1) and (msg.result=1)     then
  begin
    showmessage('Has presionado F1');
  end;

end;

Un Saludo.

[MiKloSS]

algo asi te kedaria, y si kieres ke se de el click pues nada mas pones el nombre del boton on el evento onclick, seria algo asi...

boton_?.OnClick(self); // es es en el VK_F1

y

boton_X.OnClick(self);// para VK_ESCAPE

[ingabraham]

Empezado por white_zombie

Como comenta el amigo MiKloSS seria algo asi:


Código Delphi [-]
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
begin

if (msg.CharCode=VK_ESCAPE) and (msg.result=1) then
begin
showmessage('Has presionado ESC');
end
else if (msg.CharCode=VK_F1) and (msg.result=1) then
begin
showmessage('Has presionado F1');
end;

end;





Un Saludo.

Gracias me funciono a la perfección., ahora necesito es que si se da click en el boton help se active el f1, o haga algo.
gracias

[[white_zombie]]

Lo siento pero en eso no te puedo ayudar, si te refieres al boton ? que sale en el borde del formulario al lado del boton X creo que no se puede programar su funcionamiento.

Si no me equivoco ese boton tiene un funcionamiento predefinido y es que cuando lo pulsas si te fijas en el cursor sale una interrogacion, una vez pulsado te puedes dirigir al componente del formulario que quieras y si pulsas sobre él te saldra la ayuda que le hubieses indicado al formulario en el helpfile abierta por el topico que indiques en la propiedad helpcontext de ese componente.

Por este motivo mi primer post iba por ese camino porque creo que lo quieres es que tu aplicación tenga un archivo de ayuda.

Lo de la tecla ESC ya lo tienes solucionado para lo otro busca en foro sobre helpfile y helpcontext.

La verdad, me explico bastante mal pero espero haberte aclarado algo.

Un saludo.