programar boton ? y X

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