[TRUCO DELPHI] Hacer tu Aplicacion pantalla completa.
procedure TSomeForm.FormShow(Sender: TObject);
var
r : TRect;
begin
Borderstyle := bsNone;
SystemParametersInfo
(SPI_GETWORKAREA, 0, @r,0);
SetBounds
(r.Left, r.Top, r.Right-r.Left, r.Bottom-r.Top);
end;
Saludos!
El código que expones no pone la aplicación en pantalla completa, sencillamente genera una excepción.
El siguiente código sí pone la aplicación ocupando toda la pantalla
procedure TForm1.FormCreate(Sender: TObject);
var
r: TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
SetBounds(r.Left, r.Top, r.Right - r.Left, r.Bottom - r.Top);
end;
Saludos.