Fullscreen

Gdzie można ustawić Fullscreen dla mojej aplikacji ?? Ale taki co przykryje od razu pasek startu.

Na dole object inspectora ustaw WindowState na WsMaximized i BorderStyle na bsNone :-)

Proponuję walnąć jeszcze StayOnTop

(a tak à propos to gdzieś w przykładach widziałem chyba takie coś, jak "rysowanie po pulpicie" - taki gotowiec, który robi okno na fullscreen ze zrzutem i można sobie pobazgrać...) :p

Var
Rozd : packed record
X, Y : Integer;
end;

procedure TForm.FormCreate(Sender: TObject);
var
Mode: TDeviceMode;
H : THandle;
wClass : array[0..50] of Char;
INI : TINIFile;

begin
{Ukrywam pasek zadań}
StrPCopy(@wClass[0], 'Shell_TrayWnd');
H := FindWindow(@wClass[0], nil);
ShowWindow(H, SW_HIDE);
{Odczytuje rozdzielczosc ekranu}
Rozd.X := GetSystemMetrics(SM_CXSCREEN); // pobranie rozdzielczosci
Rozd.Y := GetSystemMetrics(SM_CYSCREEN);
{Ustawiam rozdzielczosc na 800x600}
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=800;
dmPelsHeight:=600;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
{ustawiam szerokosc i wysokosc formy}
width:=800;
height:=600;
end;

przy wylaczaniu

procedure TForm.Button1Click(Sender: TObject);
var
Mode: TDeviceMode;
H : THandle;
wClass : array[0..50] of Char;
begin
//if Application.MessageBox('Czy zamknac program ?','Zamykanie',MB_YESNO+MB_ICONQUESTION)=idyes then
//begin
{Ustawiam rozdzielczosc ekranu taka jaka zastal program}
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=rozd.X;
dmPelsHeight:=rozd.Y;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
ChangeDisplaySettings(Mode,0)
end;
StrPCopy(@wClass[0], 'Shell_TrayWnd');
H := FindWindow(@wClass[0], nil);
ShowWindow(H, SW_RESTORE);
application.Terminate;
//end;
end;

Ja sobie zawsze tak robie :)