¿Como se puede recuperar form oculto con hide?

[lapidus]

Hola,tengo hecho un programa que se inicia y se oculta al iniciar windows.

Código Delphi [-]

procedure Tform1.Timer1Timer(Sender: TObject);
begin
  Programa;
begin
hide;

end;
end;

procedure Tform1.Regedit (run:byte; Nombre:string);
 var
    Registro:TRegistry;
begin
  Registro:=TRegistry.create;
  Registro.RootKey:=HKEY_LOCAL_MACHINE ;
    case run of
      1: if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',FALSE) then
            Registro.WriteString('Programa', ParamStr(0));
      0: if Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run\',FALSE) then
            Registro.DeleteValue('Programa');
    end;
    Registro.free;
end;
procedure TCheckbox.iniciarconwindowsyocultarClick(Sender: TObject);
begin
  if Iniciarconwindowsyocultar.Checked then
    Regedit(1, 'Programa')

  else
    Regedit(0, 'Programa') ;

begin
if timer1.Enabled = true then
begin
 Timer1.Enabled := iniciarconwindowsyocultar.Checked=true ;
ActivarPrograma.Caption:= 'Activar Programa y Ocultar'
end
else
begin
  Timer1.enabled := iniciarconwindowsyocultar.Checked=true ;
   ActivarPrograma.Caption:= 'Detener Programa'
end;
end;
end;
procedure Tform1.activarcapturaClick(Sender: TObject);
begin
if timer1.Enabled=true then
begin
Timer1.Enabled := false;
ActivarPrograma.Caption:='Activar Programa y Ocultar'
end
else
begin
Timer1.Enabled:=true ;
ActivarPrograma.Caption:='Detener Programa'
end;
end;
procedure Tform1.AveriguarInicio(nombre:string);
var
   Registro : TRegistry ;
begin
   Registro := TRegistry.Create ;
   Registro.RootKey := HKEY_LOCAL_MACHINE;
   Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true) ;

       if Registro.ValueExists('Programa')= true then
      iniciarconwindowsyocultar.Checked:= true
    else
      iniciarconwindowsyocultar.Checked:= false ;

  Registro.Free;
end;
procedure Tform1.FormCreate(Sender: TObject);

begin
   
  AveriguarInicio('Programa');
end;

El programa funciona correctamente tanto en windows xp como en windows 7.El programa se oculta,tanto al activar el checkbox,como al presionar el button.Tambien hay un MainMenu asociado a cada uno de los botones.¿ Como se puede recuperar el form?.Es decir que vuelva a tener el foco.Gracias

[Casimiro Notevi]

Lo contrario de "hide" es "show"

[[Al González]]

¡Epa Casimiro!

¿Cuándo llegaste a los 10 mil mensajes? ¿Ya hay hilo de festejo?

[lapidus]

Si,ya lo he probado con 'show',lo he puesto en el formCreate y en el MainMenu he creado 'Mostrar' con Show.Pero no funciona.Yo me refiero a poder visualizarlo con una combinacion de teclas.Gracias.

[Casimiro Notevi]

Empezado por Al González

¡Epa Casimiro!
¿Cuándo llegaste a los 10 mil mensajes? ¿Ya hay hilo de festejo?

je, je... ayer mismo

[Casimiro Notevi]

Empezado por lapidus

Si,ya lo he probado con 'show',lo he puesto en el formCreate y en el MainMenu he creado 'Mostrar' con Show.Pero no funciona.Yo me refiero a poder visualizarlo con una combinacion de teclas.Gracias.

¿Con una combinación de teclas?, ¿y qué problema tienes para hacerlo así?

[lapidus]

El problema que tengo es,que cuando el form esta oculto,no funciona ninguna de las combinaciones de teclas,que tengo en el MainMenu.Supongo que es porque el form no tiene el foco.Por ejemplo,para activar el programa tengo puesto en el shortcut ctrl+t.Gracias Casimiro Notevi.

[Casimiro Notevi]

Veamos si lo entiendo, el programa está minimizado en el "trayicon", junto al reloj de windows, no?
Y tú puedes estar en otro programa haciendo cualquier cosa.
Y quieres que con la pulsación de una combinación de teclas tu programa se active y muestre.
¿Es eso?

[lapidus]

Hola Casimiro Notevi.El programa no está al lado del reloj,sino que esta oculto.Solo se puede ver que se esta ejecutando desde el programador de tareas de windows-procesos.Cuando le das al boton Activar Programa el form
desaparece de la pantalla y se activa el programa(el boton esta asociado al timer).Tambien cuando marcas el checkbox (que tambien esta asociado al timer)lo oculta y lo activa para que al reiniciar windows corra en modo oculto.
Gracias Casimiro Notevi.

[Casimiro Notevi]

Echa un vistazo a este tema, creo que es lo que estás buscando.

[lapidus]

Gracias por tu tiempo,Casimiro Notevi.Mirare de probarlo durante este fin de semana.

[lapidus]

Gracias,Casimiro Notevi.Ha funcionado perfecto.Solo preguntarte otra duda.
Para marcar y desmarcar el CheckBox mediante el MainMenu ¿como se podria hacer?Gracias.

[lapidus]

Hola,ya lo he conseguido.He creado en el MainMenu 'Desmarcar Check'
con el siguiente codigo.

Código Delphi [-]
procedure Programa.DesmarcarCheck1Click(Sender: TObject);
begin
if  iniciarconwindowsyocultar.Checked =true  then
begin
    iniciarconwindowsyocultar.Checked := false
end
else
begin
 if   iniciarconwindowsyocultar.Checked = false then
 begin
   iniciarconwindowsyocultar.Checked := true;
end;
end;
end;

Este codigo esta puesto en evento OnClick del 'Desmarcar Check' asociado a la tecla F5.
Gracias por tu ayuda Casimiro Notevi.

[Casimiro Notevi]

Todo ese código creo que lo mismo puedes reducirlo a esto:

Código Delphi [-]
procedure Programa.DesmarcarCheck1Click(Sender:TObject);
begin
  iniciarconwindowsyocultar.Checked := not iniciarconwindowsyocultar.Checked;
end;