Foros Club Delphi - forma que ocupe toda la pantalla

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - forma que ocupe toda la pantalla (https://www.clubdelphi.com/foros/showthread.php?t=9758)

forma que ocupe toda la pantalla

yo se que es algo fasil pero de verdad me rindo....

quiero hacer una aplicacion en donde el usuario no puede acceder a ninguna otra aplicacion...
que mi aplicacion quede por encima la barra de tarea....
a tambien quiero que quede con borde pero sin la barra de estado...

le agradesco cualquier ayuda

Prueba algo así:

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  BorderStyle := bsNone;
  BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);
end;

Cita:

Empezado por delphi.com.ar

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject);
begin
  FormStyle := fsStayOnTop;
  BorderStyle := bsNone;
  BoundsRect := Rect(0, 0, Screen.Width, Screen.Height);
end;

Yo le quitaría esto pues la quiere con borde. Lo que no me queda claro es qué entiende por "barra de estado".

// Saludos

A mi me funciona de la siguiente manera :

En la creación de la forma

Código:

Procedure TForm1.FormCreate(Sender: TObject);

Var

  HTaskbar : HWND;

  OldVal : LongInt;

Begin

 Try

   //Obtener el  handle del Taskbar de Windows

   HTaskBar:=FindWindow('Shell_TrayWnd',nil );

   //Dehabilitar las teclas de Sistema(F1, Ctr-Alt-Del, etc...), solo en Win 95/98/ME

   SystemParametersInfo (97, Word (True), @OldVal, 0) ;

   //Deshabilitar el Taskbar

   EnableWindow(HTaskBar,False);

   //Esconder el Taskbat

   ShowWindow(HTaskbar,SW_HIDE);

 Finally

   With Form1 Do

   Begin

//     BorderStyle :=bsNone; este no por que quieres los bordes

     FormStyle :=fsStayOnTop;

     Left :=0;

     Top :=0;

     Height :=Screen.Height;

     Width :=Screen.Width;

  End;

 End //Finally

End;

Cuando la cierras

Código:

Procedure  TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

var

  HTaskbar : HWND;

  OldVal : LongInt;

Begin

  HTaskBar:=FindWindow('Shell_TrayWnd',nil );

  SystemParametersInfo (97, Word (False), @OldVal, 0); //solo en Win 95/98/ME

  EnableWindow(HTaskBar,True);

  ShowWindow(HTaskbar,SW_SHOW);

End;

nada mas que si quieres trazar tu programa, no vas a poder, osease que lo pones cuando ya este listo para el usuario

Cita:

Empezado por roman

Yo le quitaría esto pues la quiere con borde.

Es verdad, creí haber leído lo contrario que es lo mas común :D...

Saludos!

¡Ah! claro. Faltaba el primer requerimiento, no acceder a ninguna otra aplicación. Ahora que la verdad cuando veo este tipo de requerimientos me pregunto si no les será más útil sustituir el shell de windows (Explorer) por su propia aplicación.

Otra cosa que puede hacerse es tener dos aplicaciones. La primera simplemente manda ejecutar a la principal, pero en un escritorio distinto (objeto Desktop) con lo cual no podrá acceder a nada más que no sea ella misma. Al cerrar la aplicación principal se cierra el escritorio extra y se conmuta al escritorio normal.

// Saludos

pd: en http://www.clubdelphi.com/users/roman/hooks.php puede ver una forma de inhabilitar combinaciones especiales de teclas (excepto Ctrl-Alt-Del) para el caso de Windows 2000/XP en donde no funciona lo del screen saver.

Grcias Por La Ayuda

Gracias muchachos por su ayuda...
cumplio tadas mis preguntas.....

Grcias Por La Ayuda

Gracias muchachos por su ayuda...
cumplio tadas mis preguntas.....