traer form adelante

[calco_hugo]

ante todo buenas tardes, tengo un pequeño problema, necessito traer mi form adelante de cualquier otra aplicacion (no juegos), mi aplicacion esta minimizada, y al presionar, por ej la tecla "*" traiga el form1 a delante de la aplicacion que se esta ejecutando, todo lo que intente hasta ahora solo hace titilar en la barra de tareas la aplicacion, lo que estoy haciendo es en delphi 7 y sistema OP XP.
desde ya muchas gracias

[rgstuamigo]

Si te estoy entendiendo bien, lo que necesitas es tan solo poner la propiedad FormStyle=fsStayOnTop de tu formulario, ésto hará que tu formulario simpre esté por sobre cualquier aplicacion, parecido a la ventana del "Administrador de tareas de Windows"
Ahora si tan solo quieres solamente que tu formulario tenga el "focus" y se venga hacia adelante pues tan solo puedes Hacer ésto:

Código Delphi [-]
Form1.BringToFront;

Saludos...

[calco_hugo]

no me resulta en delphi 7 y SO XP, solo titila en la barra de tareas, lo que necesito es tape cualquier otro prog. en ejecucion (ojo no juegos), pero te agradezco lo rapido de la respuesta
hugo

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