traer form adelante

[rgstuamigo]

No me había dado cuenta que si tu formulario está minimizado, pues no creo que te funcione ya que al minimizar el formulario ,éste pierde el foco. y creo que por ahí va la cosa..
Supongo que en ese caso deberías usar un Hook(gancho) para detectar la combinacion de teclas que pulsas..
Saludos...

[calco_hugo]

desde ya mas que agradecido por tus prontas respuestas (no se hasta que hora me quedare hoy con esto, lo tengo que tener para mañana), pero te comento, tengo ttimer en la aplicacion, en el evento

if GetAsyncKeyState( Ord( '8' ) ) = -32767 then
begin
form1.formStyle := fsStayOnTop
end;

(en este caso la tecla 8)

Pero no logro en ningun caso que la aplicacion pase a primer plano y tenga el foco, (ni siquiera logro que pase a primer plano), lo mas que logro es que la aplicacion en la barra de tareas titile.-
hugo

[[escafandra]]

Prueba así:

Código Delphi [-]
if (GetAsyncKeyState( Ord( '8' ) ) and $8000)<>0 then
  Form1.FormStyle := fsStayOnTop;

Saludos.

[calco_hugo]

if (GetAsyncKeyState( Ord( '8' ) ) and $8000)<>0 then
Form1.FormStyle := fsStayOnTop;

lamentablemente no funciono, pero desde ya muchas gracias por sus
prontas respuestas

[[escafandra]]

No se como lo estás usando, pero si funciona.

Ten en cuenta de que para que se detecte la pulsación de la tecla, se debe ejecutar al API GetAsyncKeyState. Ésta detecta la última cecla pulsada desde la última ejecución. Una forma fácil de implementarlo es en un Timer con un intervalo de 100ms, por ejemplo.
Código Delphi [-]procedure TForm1.Timer1Timer(Sender: TObject); begin if (GetAsyncKeyState( Ord( '8' ) ) and $8000)<>0 then Form1.FormStyle := fsStayOnTop; end;


Saludos.

[calco_hugo]

escafandra, mil disculpas, si funciona, con el ejemplo que me pasaste funciona correctamente, cuando lo probe antes de tu respuesta lo hice mal (tapado de trabajo), al correjirme funciona perfecto, desde ya muchas gracias, abusando de tu amabilidad y sapiensa, como detecto la tecla + del teclado numerico, ya que es el unico teclado que tendra el sistemaa implementar, desde ya gracias a todos y disculpen mi error
hugo

[[escafandra]]

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (GetAsyncKeyState(VK_ADD) and $8000)<>0 then
    Form1.FormStyle := fsStayOnTop;
end;

Saludos.