traer form adelante

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

[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