traer form adelante

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

[calco_hugo]

muchas gracias
hugo

[[escafandra]]

Si te interesa, tienes otra forma de realizar lo mismo pero no usando la API GetAsyncKeyState ni, por tanto, un Timer. Se trata de registrar un HotKey y asociarle un evento:

Código Delphi [-]
unit Unit1;
 
interface
 
uses Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
 
type
 TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
  procedure HotKey(var Message: TMessage); message WM_HOTKEY;
 end;
 
var Form1: TForm1;
 
implementation
 
{$r *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 RegisterHotKey(Handle, 1, 0, VK_ADD);
end;
 
procedure TForm1.HotKey(var Message: TMessage);
begin
 if Message.WParam = 1 then
  begin
   Form1.FormStyle := fsStayOnTop;
  end;
end;
 
end.

Tu dirás cual método te conviene mejor.


Saludos.

[[Lepe]]

ummm...

Es buena práctica quitar el registro de esa tecla con UnregisterHotkey en el formClose de la ventana

[calco_hugo]

desde ya muchas gracias, y la verdad mas que atentos todos
hugo

[waly2k1]

Y otra vez yo Lepe....
Estoy buscando algo parecido. El tema es que el minimize en Win7 no siempre funciona y se pierde la aplicación, se ve el icono en la barra de tareas, pero inaccesible y desaparece de la lista del administrador de tareas, se ve en la solapa servicios, pero ho hay forma de restaurar. Con lo cual hay que finalizar la aplicación y reiniciarla.
Saludos y gracias de antemano!
Walter