Tema: traer form adelante
Ver Mensaje Individual
  #10  
Antiguo 14-07-2010
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
  
Registrado: nov 2007
Posts: 2.210
Reputación: 22
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
 
Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (GetAsyncKeyState(VK_ADD) and $8000)<>0 then
    Form1.FormStyle := fsStayOnTop;
end;

Saludos.
Responder Con Cita