Form a pantalla completa

[Roilo]

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]]

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]]

Empezado por Roilo

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]

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]

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.