Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Form a pantalla completa (https://www.clubdelphi.com/foros/showthread.php?t=46693)

Roilo 06-08-2007 22:11:18

Form a pantalla completa
 
Saludos al Foro.
Resulta que hasta ahora mi form principal estaba cubriendo toda la pantalla, incluyendo la barra de inicio, y de buenas a primera se está tirando por detras de la barra de inicio. Alguno de ustedes sabe a qué se debe ?
GRACIAS de antemanos.

BlueSteel 07-08-2007 00:03:15

pone la opcion de windowsState a wsMaximized....

en k resolución estas trabajando..

el problema te ocurre en el mismo pc que desarrollas o en otro... verifica que la resolución de pantalla sea la misma en todos los pc que se ejecuta...

incuso por sismtea puedes agregar la sgte función...

Código Delphi [-]
// Funcion que permite cambiar la resolución de la Pantalla
Function SetScreenResolution(Ancho, Altura: integer): Longint;
var
 DeviceMode: TDeviceMode;
begin
 with DeviceMode do begin
   dmSize := SizeOf(TDeviceMode);
   dmPelsWidth := Ancho;
   dmPelsHeight := Altura;
   dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
 end;
 Result := ChangeDisplaySettings(DeviceMode, CDS_UPDATEREGISTRY);
end;

la forma de llamar es así

Código Delphi [-]
SetScreenResolution(1024,768)

espero que te sirva

cHackAll 07-08-2007 03:44:24

Cita:

Empezado por Roilo (Mensaje 220852)
Saludos al Foro.
Resulta que hasta ahora mi form principal estaba cubriendo toda la pantalla, incluyendo la barra de inicio, y de buenas a primera se está tirando por detras de la barra de inicio. Alguno de ustedes sabe a qué se debe ?
GRACIAS de antemanos.

Se debe a que en la barra de tareas está como "Siempre visible"...

click derecho en la misma, Propiedades, "Mantener la barra de tareas siempre visible".

Saludos

adfa 07-08-2007 17:11:36

Prueba poner esto en el create del form:

Código Delphi [-]
var
   HTaskbar : HWND;
   OldVal : LongInt;
begin
    try
      HTaskBar:=FindWindow('Shell_TrayWnd',nil);
      SystemParametersInfo (97, Word (True), @OldVal, 0) ;
//Desactivar la barra de tareas
      EnableWindow(HTaskBar,False);
//Ocultar la barra
      ShowWindow(HTaskbar,SW_HIDE);
   except
   end;

y no te olvides de al cerra la aplicacion volver a restaurar la barra
Código Delphi [-]
var
   HTaskbar : HWND;
   OldVal : LongInt;
begin
    try
     HTaskBar:=FindWindow('Shell_TrayWnd',nil);
     SystemParametersInfo (97, Word (False), @OldVal, 0);
//Activar la barra
     EnableWindow(HTaskBar,True);
//Mostrar la barra
     ShowWindow(HTaskbar,SW_SHOW);
   except
   end;

Espero que te sirva, lo saque de algun lado pero no recuerdo de donde fue

Saludos

Roilo 19-09-2007 15:26:25

nada
 
les agradesco sus comentarios.
Todavía no logro que mi aplicación ocupe toda la pantalla.
El código de Adfa me borra la barra pero mi sistema no ocupa ese espacio.
sobre el comentarios de cHackAll , siempre he tenido mi barra "siempre visible" y les recuerdo que desde un inicio mi sistema ocupaba toda la pantalla, que hoy sólo lo logro cuando minimizo y maximizo el programa. Incluso tengo hecho otro sistema que sí lo hace, y realicé la respentiva comparación de propiedades entre los sistemas y están idénticos.
Bueno, seguiré buscando por acá porque realmente es molestísimo, luego les cuento.
GRACIAS de antemano.


La franja horaria es GMT +2. Ahora son las 18:34:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi